OFFSET
1,1
COMMENTS
EXAMPLE
MATHEMATICA
Do[ If[ Mod[ Prime[n], n-PrimePi[n]] == 1, Print[n]], {n, 1, 150000000}]
(* Second program: *)
Position[Table[Mod[Prime[n], n - PrimePi[n]], {n, 10^6}], 1] // Flatten (* Michael De Vlieger, Jul 30 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jun 26 2002
EXTENSIONS
Edited by Robert G. Wilson v, Jun 27 2002
STATUS
approved