login
A048400
Primes with consecutive digits that differ exactly by 3.
8
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
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 *)
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