OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..1161
MATHEMATICA
(#/PrimePi[#] &) /@ Select[Range[2, 3*10^6], IntegerQ[#/PrimePi[#]] &] (* Michael De Vlieger, Apr 15 2015, after N. J. A. Sloane at A057809 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Nov 07 2000
EXTENSIONS
More terms from Naohiro Nomoto, Jun 26 2001
STATUS
approved