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

Author

Patrick De Geest, Apr 15 1999

Keywords

• nonn
• base

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

Crossrefs

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

Programs

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 *)

Extensions

More terms from Naohiro Nomoto, Jul 28 2001

More terms from Sean A. Irvine, Jun 15 2021