|
%I M0679 #54 May 26 2022 08:34:09
%S 2,3,5,7,23,67,89,4567,78901,678901,23456789,45678901,9012345678901,
%T 789012345678901,56789012345678901234567890123,
%U 90123456789012345678901234567,678901234567890123456789012345678901
%N Primes with consecutive (ascending) digits.
%D J. S. Madachy, Consecutive-digit primes - again, J. Rec. Math., 5 (No. 4, 1972), 253-254.
%D Thomas E. Moore, A Note on the Distribution of Primes in Arithmetic Progressions, J. Rec. Math., 5 (1972), 253-254.
%D R. C. Schroeppel, personal communication, 1991.
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%D D. Zwillinger, Consecutive-Digit Primes - In Different Bases, J. Rec. Math., 10 (1972), 32-33.
%H Paul Tek, <a href="/A006055/b006055.txt">Table of n, a(n) for n = 1..36</a>
%H J. S. Madachy, <a href="/A006055/a006055_2.pdf">Consecutive-digit primes - again</a>, J. Rec. Math., 5 (No. 4, 1972), 253-254. (Annotated scanned copy with letter to N. J. A. Sloane)
%H R. Schroeppel, <a href="/A006055/a006055.pdf">Email to N. J. A. Sloane, Jun 1991</a>
%H R. Schroeppel, <a href="/A006055/a006055_1.pdf">Email to N. J. A. Sloane, Jun. 1991</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PrimeNumber.html">Prime Number.</a>
%t f[n_] := Block[{u = Range@n, t = Table[1, {n}]}, Select[ Drop[ Union@ Flatten@ Table[ FromDigits[ Mod[u + i*t, 10]], {i, 10}], 2], PrimeQ@# &]]; Array[f, 35] // Flatten (* _Robert G. Wilson v_, Jul 05 2006 *)
%o (Python)
%o from sympy import isprime
%o from itertools import count, islice
%o def bgen(): yield from (int("".join(str((s0+i)%10) for i in range(d))) for d in count(1) for s0 in range(1, 10))
%o def agen(): yield from filter(isprime, bgen())
%o print(list(islice(agen(), 18))) # _Michael S. Branicky_, May 26 2022
%Y Cf. A052016, A052017, A048398, A120804, A120805.
%K nonn,base
%O 1,1
%A _N. J. A. Sloane_, Richard C. Schroeppel
%E a(17) from _Robert G. Wilson v_, Jul 05 2006
%E Entry revised by _N. J. A. Sloane_, Feb 07 2007
|
