A181978 Indices of primes in A181938.

4, 6, 8, 14, 25, 27, 29, 31, 34, 42, 44, 50, 53, 61, 63, 65, 70, 78, 80, 82, 88, 90, 93, 95, 117, 125, 127, 136, 138, 141, 143, 145, 147, 149, 151, 153, 155, 157, 159, 163, 172, 177, 183, 191, 193, 207, 213, 224, 226, 229, 235, 237, 247, 249, 251, 254, 266

Offset: 1

Author

Zak Seidov, Apr 04 2012

Keywords

• nonn

Programs

Mathematica

Select[Range[4,300], 1 == Mod[Prime[#],6] == Mod[Prime[#-1], 6] - 4 == Mod[Prime[#+1], 6] - 4&]

Formula

A000040(a(n)) = A181938(n).