mersenneforum.org  

Go Back   mersenneforum.org > Extra Stuff > Miscellaneous Math

Reply
 
Thread Tools
Old 2022-06-12, 16:27   #1
RomanM
 
Jun 2021

3×17 Posts
Default Ulam spirale, envolved to

Hi.
Plot code was taken from here
https://community.wolfram.com/groups/-/m/t/1543056

Code:
mgonLayer[q_, m_] := Ceiling[1/2 (1 + Sqrt[-8 + m + 8 q]/Sqrt[m])] - 1

maround[q_, m_] := q - (1 + m/2 ((mgonLayer[q, m] - 1) (mgonLayer[q, m])))
mpoint[q_, m_] := (mgonLayer[q, m] AngleVector[(2 \[Pi])/m (#1 - 1)] +
                 #2 2 Sin[\[Pi]/m] AngleVector[2 \[Pi]/m (#1 - 1) + \[Pi]/2 + \[Pi]/m]) & @@ 
                  Quiet[QuotientRemainder[maround[q, m], mgonLayer[q, m]]]

ListPlot[mpoint[#, M] & /@ (Prime[#] & /@ Range[10000]), Axes -> False, AspectRatio -> Automatic]
For classic spirale, M = 4;
Lets make a little changes in the plot code:
Code:
ListPlot[mpoint[#, M] & /@ (Prime[#*#] & /@ Range[20000]), Axes -> False, AspectRatio -> Automatic]
M = 403
Sharingan
https://www.mersenneforum.org/attach...1&d=1655050840
M = 503
Rinnegan
https://www.mersenneforum.org/attach...1&d=1655051029
Attached Thumbnails
Click image for larger version

Name:	403.gif
Views:	45
Size:	74.8 KB
ID:	26999   Click image for larger version

Name:	503.gif
Views:	48
Size:	74.9 KB
ID:	27000  

Last fiddled with by RomanM on 2022-06-12 at 16:33 Reason: Range[20000] for obtaine the same pictures
RomanM is offline   Reply With Quote
Old 2022-06-18, 19:57   #2
RomanM
 
Jun 2021

3×17 Posts
Default

Hello.
Code:
ListPlot[mpoint[#, 4] & /@ ((Prime[2*#] - 2*Prime[#]) & /@
    Range[15000]), Axes -> True, AspectRatio -> Automatic]
what do you think, is it possible to have a prime related function instead of
Code:
 Prime[2*#] - 2*Prime[#]
that gives a symmetry?
Attached Thumbnails
Click image for larger version

Name:	777.gif
Views:	22
Size:	54.9 KB
ID:	27012  
RomanM is offline   Reply With Quote
Old 2022-06-23, 12:20   #3
RomanM
 
Jun 2021

3316 Posts
Default

Quote:
Originally Posted by RomanM View Post
*** that gives a symmetry?
some symmery
Code:
ListPlot[mpoint[#, 4] & /@ ((Prime[#]/EulerPhi[#]) & /@ Range[15000]),
  Axes -> True, AspectRatio -> Automatic]
on the graph is connection Euler Phi(n) and n-prime number, and it's not impossible to fast compute the n-prime number for given (full factored) n.
Attached Thumbnails
Click image for larger version

Name:	gif.gif
Views:	16
Size:	18.4 KB
ID:	27035  
RomanM is offline   Reply With Quote
Reply

Thread Tools


Similar Threads
Thread Thread Starter Forum Replies Last Post
RH and Ulam's spiral Damian Lounge 0 2009-09-26 03:17

All times are UTC. The time now is 21:37.


Tue Aug 16 21:37:42 UTC 2022 up 40 days, 16:25, 1 user, load averages: 1.08, 1.16, 1.16

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.

This forum has received and complied with 0 (zero) government requests for information.

Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation.
A copy of the license is included in the FAQ.

≠ ± ∓ ÷ × · − √ ‰ ⊗ ⊕ ⊖ ⊘ ⊙ ≤ ≥ ≦ ≧ ≨ ≩ ≺ ≻ ≼ ≽ ⊏ ⊐ ⊑ ⊒ ² ³ °
∠ ∟ ° ≅ ~ ‖ ⟂ ⫛
≡ ≜ ≈ ∝ ∞ ≪ ≫ ⌊⌋ ⌈⌉ ∘ ∏ ∐ ∑ ∧ ∨ ∩ ∪ ⨀ ⊕ ⊗ 𝖕 𝖖 𝖗 ⊲ ⊳
∅ ∖ ∁ ↦ ↣ ∩ ∪ ⊆ ⊂ ⊄ ⊊ ⊇ ⊃ ⊅ ⊋ ⊖ ∈ ∉ ∋ ∌ ℕ ℤ ℚ ℝ ℂ ℵ ℶ ℷ ℸ 𝓟
¬ ∨ ∧ ⊕ → ← ⇒ ⇐ ⇔ ∀ ∃ ∄ ∴ ∵ ⊤ ⊥ ⊢ ⊨ ⫤ ⊣ … ⋯ ⋮ ⋰ ⋱
∫ ∬ ∭ ∮ ∯ ∰ ∇ ∆ δ ∂ ℱ ℒ ℓ
𝛢𝛼 𝛣𝛽 𝛤𝛾 𝛥𝛿 𝛦𝜀𝜖 𝛧𝜁 𝛨𝜂 𝛩𝜃𝜗 𝛪𝜄 𝛫𝜅 𝛬𝜆 𝛭𝜇 𝛮𝜈 𝛯𝜉 𝛰𝜊 𝛱𝜋 𝛲𝜌 𝛴𝜎𝜍 𝛵𝜏 𝛶𝜐 𝛷𝜙𝜑 𝛸𝜒 𝛹𝜓 𝛺𝜔