|
%I #4 Mar 14 2015 17:22:07
%S 3,3,7,2,5,3,3,5,3,7,7,2,3,7,5,7,2,2,3,5,2,2,7,5,2,2,2,7,7,2,7,2,3,3,
%T 7,7,5,7,5,3,7,5,2,2,3,3,2,2,2,3,5,3,3,7,3,7,7,2,3,5,3,3,3,5,5,3,5,2,
%U 5,3,3,2,2,3,2,2,2,7,7,5,2,7,2,5,7,2,7,3,2,2,2,3,2,2,5,2,2,3,3,3,7,5,7,2,2
%N Prime digits in the decimal expansion of golden ratio phi (or tau) = (1 + sqrt 5 )/2.
%t Select[ RealDigits[ GoldenRatio, 10, 275][[1]], PrimeQ[ # ] &] (* _Robert G. Wilson v_, Jan 21 2005 *)
%Y Cf. A001622, A073264, A073246.
%K base,easy,nonn
%O 0,1
%A Sebastian Gutierrez (sgutierr(AT)alum.mit.edu), Jan 20 2005
%E More terms from _Robert G. Wilson v_, Jan 21 2005
|
