OFFSET
1,1
COMMENTS
Indices of primes: 54, 271, 464, 508, 559, 682, 701, 709, 732, 821, 829, 881, 1076, 1221, 1321, 1386, 1486, ....
LINKS
Zak Seidov, Table of n, a(n) for n = 1..3000
EXAMPLE
prime(54,55,56,57) = {251, 257, 263, 269} == {1,2,3,4} (mod 5).
MATHEMATICA
nn = 4000; p = Partition[Prime[Range[nn]], 4, 1]; t = Select[p, Mod[#, 5] == {1, 2, 3, 4} &]; Transpose[t][[1]] (* T. D. Noe, Aug 17 2012 *)
Select[Partition[Prime[Range[4000]], 4, 1], Mod[#, 5]=={1, 2, 3, 4}&][[;; , 1]] (* Harvey P. Dale, Feb 24 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Aug 17 2012
STATUS
approved