OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Prime[10Select[Range[110], PrimeQ[10# + 1] &] + 1]
Prime[#]&/@Select[Prime[Range[200]], NumberDigit[#, 0]==1&] (* Requires Mathematica version 12 or later *) (* Harvey P. Dale, May 31 2021 *)
PROG
(PARI) pip(n, m, r) = {sr=0; forprime(x=3, n, if(x%m == r, v=prime(x); sr+=1.0/v; print1(v" "); ) ); print(); print("m="m" r="r" sr="sr); }
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Dec 14 2002
EXTENSIONS
Edited by Robert G. Wilson v, Dec 17 2002
STATUS
approved