A350140 Nonsquarefree numbers whose prime signature has at least one odd part other the first or last.
60, 84, 120, 132, 140, 150, 156, 168, 204, 220, 228, 240, 260, 264, 270, 276, 280, 294, 300, 308, 312, 315, 336, 340, 348, 364, 372, 378, 380, 408, 420, 440, 444, 456, 460, 476, 480, 490, 492, 495, 516, 520, 528, 532, 540, 552, 560, 564, 572, 580, 585, 588
Offset: 1
Keywords
Examples
The terms together with their Heinz partitions begin (A-E = 10-14): 60: (3211) 276: (9211) 420: (43211) 84: (4211) 280: (43111) 440: (53111) 120: (32111) 294: (4421) 444: (C211) 132: (5211) 300: (33211) 456: (82111) 140: (4311) 308: (5411) 460: (9311) 150: (3321) 312: (62111) 476: (7411) 156: (6211) 315: (4322) 480: (3211111) 168: (42111) 336: (421111) 490: (4431) 204: (7211) 340: (7311) 492: (D211) 220: (5311) 348: (A211) 495: (5322) 228: (8211) 364: (6411) 516: (E211) 240: (321111) 372: (B211) 520: (63111) 260: (6311) 378: (42221) 528: (521111) 264: (52111) 380: (8311) 532: (8411) 270: (32221) 408: (72111) 540: (322211)
Crossrefs
Programs
-
Mathematica
Select[Range[300],!SquareFreeQ[#]&&PrimeNu[#]>1&& !And@@EvenQ/@Take[Last/@FactorInteger[#],{2,-2}]&]
Comments