A267692 Terms of A030461 that give successive gap records.
23, 3137, 199211, 523541, 16691693, 1393313963, 2428124317, 3498135023, 4028940343, 191353191413, 221327221393, 507217507289, 843911844001, 25654632565559, 55778515577959, 82237498223863, 1127656111276687, 1280935912809491, 2038858320388727, 3338451733384667, 5272111352721287, 9280102992801209
Offset: 1
Examples
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.
Links
- Jean-Marc Rebert, Table of n, a(n) for n = 1..23
Programs
-
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 *)
Comments