A196939 a(n) is the prime order number of A196938.
7, 10, 19, 20, 24, 25, 26, 32, 38, 39, 40, 43, 44, 45, 47, 51, 53, 55, 56, 57, 61, 63, 65, 66, 68, 69, 74, 81, 84, 86, 87, 88, 89, 90, 91, 92, 94, 96, 97, 98, 99, 101, 106, 109, 110, 111, 113, 114, 115, 116, 117, 123, 124, 125, 129, 130, 131, 132, 134, 135
Offset: 1
Examples
A196938(1) = 17, which is the 7th prime, so a(1) = 7
Crossrefs
Cf. A196938.
Programs
-
Mathematica
i = 1; Table[While[i++; p = Prime[i]; found = 0; j = 0; While[j++; df = 6*j; (p > (2*df)) && (found == 0), cp1 = p - 2*df; cp2 = p - df; cp3 = p + df; cp4 = p + 2*df; If[(PrimeQ[cp1]) && (PrimeQ[cp2]) && (PrimeQ[cp3]) && (PrimeQ[cp4]), found = 1]]; found == 0]; i, {ct, 1, 60}]