|
|
LINKS
|
Table of n, a(n) for n=1..5.
Shyam Sunder Gupta, My Contributions in Prime Curios
G. L. Honaker, Jr and Chris Caldwell, Prime Curios!
Eric Weisstein's World of Mathematics, Constant Primes
Eric Weisstein's World of Mathematics, Golden Ratio Digits
Eric Weisstein's World of Mathematics, Integer Sequence Primes
Eric Weisstein's World of Mathematics, Phi-Prime
|
|
|
MATHEMATICA
|
Do[If[PrimeQ[ FromDigits[RealDigits[N[GoldenRatio, n + 10], 10, n][[1]]]], Print[n]], {n, 1, 3000}]
With[{gr=RealDigits[GoldenRatio, 10, 100000][[1]]}, Select[Range[ 100000], PrimeQ[ FromDigits[Take[gr, #]]]&]] (* Harvey P. Dale, Jul 24 2016 *)
|
