OFFSET
1,1
COMMENTS
Contains all sequences with primes that are followed by a prime gap which is a multiple of 18 - since adding multiples of 9 does not change the digital root and the gaps are even. So A031936 (gap 18) and A134117 (gap 36) are subsequences and lower primes of prime gap 54 (35617, 40289, 40639, 86869, 100853,...), prime gap 72 (31397, 360091, 507217, 517639, 633667, 650107, 705317....) or prime gap 90 (404851,576791,..), for example, are also in here (cf. A000230). - R. J. Mathar, Apr 14 2008
LINKS
M. F. Hasler, Table of n, a(n) for n = 1..5833.
FORMULA
EXAMPLE
523 and 541 are two consecutive prime numbers with the same digital root, namely 1.
MATHEMATICA
Select[Prime[Range[1250]], Mod[ # - 1, 9] + 1 ==Mod[NextPrime[#]-1, 9]+1&] (* James C. McMahon, Sep 14 2024 *)
PROG
(PARI) isA117838(p)={ (nextprime(p+1)-p)%9==0 }
forprime( p=1, 10^4, isA117838(p) & print1(p", ")) \\ M. F. Hasler, Apr 13 2008
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), Apr 30 2006
EXTENSIONS
Corrected by R. J. Mathar and M. F. Hasler, Apr 13 2008
STATUS
approved