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,1

Links

Table of n, a(n) for n=1..60.

Example

A196938(1) = 17, which is the 7th prime, so a(1) = 7

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}]

Crossrefs

Cf. A196938.

Sequence in context: A328117 A155027 A118420 * A038211 A122226 A240791

Adjacent sequences: A196936 A196937 A196938 * A196940 A196941 A196942

Keyword

nonn,easy

Author

Lei Zhou, Oct 07 2011

Status

approved