OFFSET
1,2
COMMENTS
A161182 is not monotonic, so some terms (like 89) listed here are not direct neighbors in A161182. - R. J. Mathar, Jun 22 2009
MAPLE
MATHEMATICA
f[n_] := 2n - 1 - PrimePi[n^2] + PrimePi[(n-1)^2];
Select[Split[Array[f, 1000]//Sort], Length[#] >= 2&][[All, 1]]
(* Jean-François Alcover, Mar 07 2023 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Daniel Tisdale, Jun 05 2009
EXTENSIONS
Edited by N. J. A. Sloane, Jun 07 2009
Missing numbers added by R. J. Mathar, Jun 22 2009
STATUS
approved