A241245 Primes obtained by merging 4 successive digits in decimal expansion of sqrt (5).
6067, 7499, 8969, 4091, 9173, 8731, 5209, 9941, 2749, 4969, 5081, 5077, 4253, 2677, 4447, 3863, 2153, 7817, 3191, 9187, 1879, 6581, 8053, 1753, 5003, 2339, 9241, 3253, 2539, 2887, 6299, 8161, 7759, 2371, 3907, 7297, 8641, 2689, 4099, 3169, 1693, 7019, 7541, 5413
Offset: 1
Links
- K. D. Bajpai, Table of n, a(n) for n = 1..1514
Programs
-
Mathematica
With[{s5=FromDigits/@Partition[RealDigits[Sqrt[5],10,500][[1]],4,1]}, Select[ s5,IntegerLength[#]==4&&PrimeQ[#]&]] (* Harvey P. Dale, Mar 25 2018 *)
Extensions
Mathematica program corrected by Harvey P. Dale, Mar 25 2018
Comments