A048400 Primes with consecutive digits that differ exactly by 3.

2, 3, 5, 7, 41, 47, 14741, 14747, 74747, 1414741, 1474141, 7414741, 4141414747, 4147414147, 14141414141, 14141414741, 14141474741, 14141474747, 14147414741, 14147474141, 14147474147, 14741414747, 74141414147, 74141414741, 74147414741, 74741474741, 74747414141

Offset

1,1

Comments

All terms with more than a single digit must comprise only the digits 1, 4, and 7, because no number comprising the digits 2, 5, and 8 or the digits 3, 6, and 9 can be prime. - Harvey P. Dale, Mar 01 2023

Links

Sean A. Irvine, Table of n, a(n) for n = 1..1000

Mathematica

Join[{2, 3, 5, 7}, Table[Select[FromDigits/@Tuples[{1, 4, 7}, n], PrimeQ[#]&& Union[ Abs[ Differences[ IntegerDigits[ #]]]]=={3}&], {n, 11}]//Flatten] (* Harvey P. Dale, Mar 01 2023 *)

Crossrefs

Cf. A033081, A048398, A048399, A048401, A048402, A048403, A048404, A048405.

Sequence in context: A110363 A235395 A090714 * A286319 A090716 A083820

Adjacent sequences: A048397 A048398 A048399 * A048401 A048402 A048403

Keyword

nonn,base

Author

Patrick De Geest, Apr 15 1999

Extensions

More terms from Naohiro Nomoto, Jul 28 2001

More terms from Sean A. Irvine, Jun 15 2021

Status

approved