OFFSET
1,1
MATHEMATICA
Prime@ Select[Range[10^6], Mod[Prime[#] - 4, #] == 0 &] (* Giovanni Resta, Feb 25 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 08 2009
EXTENSIONS
Missing a(1) and a(8)-a(20) from Giovanni Resta, Feb 23 2020
STATUS
approved