A173418 Primes formed by the initial digits of the decimal expansion of 1/(Golden Ratio).
61, 61803398874989
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..3
- Eric Weisstein's World of Mathematics, Phi-Prime.
Programs
-
Maple
Digits := 1000: n0 := evalf((sqrt(5)-1)/2): for i from 1 to 10000 do t1 := trunc(10^i*n0): if isprime(t1) then print(t1): fi: od:
-
Mathematica
With[{gr=RealDigits[1/GoldenRatio,10,1000][[1]]}, Select[Table[ FromDigits[ Take[ gr,n]], {n,1000}], PrimeQ]] (* Harvey P. Dale, Oct 17 2012 *)
Comments