DOWNLOAD-DESKTOP-NOTEBOOK.nb (1.07 MB)
14 Likes
– you have earned Featured Contributor Badge 
Your exceptional post has been selected for our editorial columns Staff Picks http://wolfr.am/StaffPicks and Publication Materials https://wolfr.am/PubMat and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!
The potential looks much nicer, when you plot the inverses of the primes. You get one more oscillation for every new prime. So one can anticipate an asymptotically oscillating potential that encodes all the information about primes. Pretty interesting.
V = dressingTransformationPotentials[1/# & /@ Prime[Range[50]], 400];
Plot[V[Abs[x]], {x, -400, 400}]
3 Likes
Dear Trott,
I would like to use the code you wrote for “dressingTransformationPotentials” in my scientific article and in a webinar about the uses of Mathematica.
I would be grateful if you could kindly let me use the code.
Best regards,
Furkan Semih.
Feel free to use my code for any usage you have in mind.
Best regards,
Michael
4 Likes
Thank you very much.
All the best, Furkan Semih.