A204801 Primes followed by a gap of 110.
1468277, 2597981, 3064751, 3240983, 3453833, 4958021, 5982413, 6376193, 6877109, 8793881, 9876161, 10133159, 10486607, 10823039, 10857521, 11094983, 11883491, 12202529, 12324497, 12382907, 12667667, 13262957, 13599893, 13975133
Offset: 1
Keywords
Programs
-
Mathematica
Transpose[Select[Partition[Prime[Range[10^6]],2,1],#[[2]]-#[[1]]== 110&]] [[1]] (* Harvey P. Dale, Oct 03 2014 *)
-
PARI
p=0; g=110; for(c=1, 100, while(g+p!=p=nextprime(p+1), ); print1(", "p-g))