A233546 Smallest k such that 6^n+k, 6^n+k+g, 6^n+k+2*g are consecutive primes in arithmetic progression.
11, 35, 65, 41, 221, 655, 515, 263, 4265, 893, 4085, 1031, 3161, 145, 821, 2083, 2101, 433, 3743, 2243, 511, 2623, 5653, 271, 2885, 4157, 18023, 9023, 1151, 4787, 737, 2141, 2833, 6181, 3217, 3635, 715, 4501, 5381, 4231, 13265, 823
Offset: 2
Keywords
Examples
6^2+11=47, 6^2+11+6=53, 6^2+11+2*6=59 and 47, 53, 59 are consecutive primes and k=11 is minimal (since although 6^2+5=41, 6^2+5+6=47, 6^2+5+2*6=53 are primes, they are not consecutive primes), so a(2)=11. (Example clarified by _Jonathan Sondow_, Dec 16 2013.)
Links
- Pierre CAMI, Table of n, a(n) for n = 2..350
- Wikipedia, Consecutive primes in arithmetic progression
Programs
-
Mathematica
a[n_] := For[k = 1, True, k = k+2, p = 6^n+k; If[PrimeQ[p], q = NextPrime[p]; r = NextPrime[q]; g = q-p; If[g == r-q, Print["n = ", n, " k = ", k, " g = ", g, " ", {p, q, r}]; Return[k]]]]; Table[a[n], {n, 2, 100}] (* Jean-François Alcover, Dec 17 2013 *)
Comments