login
A037208
Numbers n such that q^2 < p, where p=nextprime(n), q=nextprime(square root of n).
1
3, 7, 8, 23, 24, 47, 48, 113, 114, 115, 116, 117, 118, 119, 120, 167, 168, 283, 284, 285, 286, 287, 288, 359, 360, 523, 524, 525, 526, 527, 528, 839, 840, 953, 954, 955, 956, 957, 958, 959, 960, 1367, 1368, 1669, 1670, 1671, 1672, 1673, 1674, 1675, 1676
OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[2000], NextPrime[Sqrt[#]]^2<NextPrime[#]&] (* Harvey P. Dale, Oct 24 2011 *)
CROSSREFS
Cf. A151800 (nextprime).
Sequence in context: A268111 A369920 A244532 * A102007 A152486 A301523
KEYWORD
easy,nonn
STATUS
approved