OFFSET
1,1
COMMENTS
LINKS
Eric Weisstein's World of Mathematics, Phi-Prime
EXAMPLE
MAPLE
Digits := 200:for n from 1 to 50 do: n0 := evalf(((sqrt(5)+1)/2)^n): for p from 1 to 100 while (type(trunc(10^p*n0), prime)= false) do:od: n2:= trunc(10^p*n0): print (n2): od:
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Feb 18 2010
EXTENSIONS
Edited by R. J. Mathar, Feb 24 2010
STATUS
approved