OFFSET
1,1
COMMENTS
LINKS
Jens Kruse Andersen, Table of n, a(n) for n = 1..10000
Vladimir Shevelev, A classification of the positive integers over primes
FORMULA
MATHEMATICA
Select[Range[4000], Prime[PrimePi[Sqrt[#]]-2] == FactorInteger[#][[1, 1]] &] (* Indranil Ghosh, Mar 08 2017 *)
PROG
(PARI) select(n->prime(primepi(sqrtint(n))-2)==factor(n)[1, 1], vector(10^4, x, x+24)) \\ Jens Kruse Andersen, Sep 17 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Sep 16 2014
EXTENSIONS
Terms up to a(54) from Peter J. C. Moses, Sep 16 2014
STATUS
approved