A034884 Numbers k such that k < d(k)^2, where d(k) = A000005(k).
2, 3, 4, 6, 8, 10, 12, 14, 15, 16, 18, 20, 24, 28, 30, 32, 36, 40, 42, 48, 54, 56, 60, 72, 80, 84, 90, 96, 108, 120, 126, 132, 140, 144, 168, 180, 192, 210, 216, 240, 252, 288, 300, 336, 360, 420, 480, 504, 540, 720, 840, 1260
Offset: 1
Programs
-
Mathematica
Select[Range[1300],#
Harvey P. Dale, Apr 11 2014 *) -
PARI
isok(n) = (n < numdiv(n)^2) \\ Michel Marcus, Jun 07 2013
Extensions
Labos Elemer added the last three terms and observes that this sequence is now complete.
Comments