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,1

Comments

All the terms in the sequence are 4-digit primes because leading zeros are not permitted.

Links

K. D. Bajpai, Table of n, a(n) for n = 1..1514

Mathematica

With[{s5=FromDigits/@Partition[RealDigits[Sqrt[5], 10, 500][[1]], 4, 1]}, Select[ s5, IntegerLength[#]==4&&PrimeQ[#]&]] (* Harvey P. Dale, Mar 25 2018 *)

Crossrefs

Cf. A198161, A198162, A198163, A198164, A198165, A198166, A198169, A241149.

Sequence in context: A238042 A251818 A241244 * A260105 A084804 A274360

Adjacent sequences: A241242 A241243 A241244 * A241246 A241247 A241248

Keyword

nonn,base

Author

K. D. Bajpai, Apr 18 2014

Extensions

Mathematica program corrected by Harvey P. Dale, Mar 25 2018

Status

approved