A053850 Odd numbers divisible by a square > 1.
9, 25, 27, 45, 49, 63, 75, 81, 99, 117, 121, 125, 135, 147, 153, 169, 171, 175, 189, 207, 225, 243, 245, 261, 275, 279, 289, 297, 315, 325, 333, 343, 351, 361, 363, 369, 375, 387, 405, 423, 425, 441, 459, 475, 477, 495, 507, 513, 525, 529, 531, 539, 549, 567
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
- Eric Weisstein's World of Mathematics, Prime Sums.
Programs
-
Mathematica
Select[Range[1, 500, 2], !SquareFreeQ[#] &] (* Amiram Eldar, Nov 21 2020 *)
-
PARI
lista(nn) = {forstep(n=1, nn, 2, if (! issquarefree(n), print1(n, ", ")));} \\ Michel Marcus, Jun 06 2014
Comments