|
%I #11 Mar 25 2018 08:16:34
%S 6067,7499,8969,4091,9173,8731,5209,9941,2749,4969,5081,5077,4253,
%T 2677,4447,3863,2153,7817,3191,9187,1879,6581,8053,1753,5003,2339,
%U 9241,3253,2539,2887,6299,8161,7759,2371,3907,7297,8641,2689,4099,3169,1693,7019,7541,5413
%N Primes obtained by merging 4 successive digits in decimal expansion of sqrt (5).
%C All the terms in the sequence are 4-digit primes because leading zeros are not permitted.
%H K. D. Bajpai, <a href="/A241245/b241245.txt">Table of n, a(n) for n = 1..1514</a>
%t With[{s5=FromDigits/@Partition[RealDigits[Sqrt[5],10,500][[1]],4,1]}, Select[ s5,IntegerLength[#]==4&&PrimeQ[#]&]] (* _Harvey P. Dale_, Mar 25 2018 *)
%Y Cf. A198161, A198162, A198163, A198164, A198165, A198166, A198169, A241149.
%K nonn,base
%O 1,1
%A _K. D. Bajpai_, Apr 18 2014
%E Mathematica program corrected by _Harvey P. Dale_, Mar 25 2018
|
