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

Links

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

Formula

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

Mathematica

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

Crossrefs

Sequence in context: A293763 A246324 A280227 * A302636 A000937 A138001

Adjacent sequences: A181975 A181976 A181977 * A181979 A181980 A181981

Keyword

nonn

Author

Zak Seidov, Apr 04 2012

Status

approved