[go: up one dir, main page]

login
A267692
Terms of A030461 that give successive gap records.
2
23, 3137, 199211, 523541, 16691693, 1393313963, 2428124317, 3498135023, 4028940343, 191353191413, 221327221393, 507217507289, 843911844001, 25654632565559, 55778515577959, 82237498223863, 1127656111276687, 1280935912809491, 2038858320388727, 3338451733384667, 5272111352721287, 9280102992801209
OFFSET
1,1
COMMENTS
Subsequence of A030461.
LINKS
EXAMPLE
a(1) = A030461(1) = 23. gap = 3 - 2 = 1.
a(2) = 3137, because 3137 is the first term in A030461 > 23, with gap = 37 - 31 = 6 > 1.
a(3) = 199211, because 199211 is the first term in A030461 > 3137, with gap = 211 - 199 = 12 > 6.
MATHEMATICA
Reap[For[record = 0; p = 2, p < 10^8, p = NextPrime[p], If[PrimeQ[pp = FromDigits[Join[IntegerDigits[p], IntegerDigits[np = NextPrime[p]]]]], If[np - p > record, record = np - p; Print[pp]; Sow[pp]]]]][[2, 1]] (* Jean-François Alcover, Mar 02 2016 *)
CROSSREFS
Sequence in context: A088385 A030461 A152521 * A136363 A340330 A290786
KEYWORD
base,nonn
AUTHOR
Jean-Marc Rebert, Jan 19 2016
STATUS
approved