A171241 Numbers k such that A169611(k) = 3.
8, 12, 18, 27, 40, 56, 60, 84, 88, 90, 104, 126, 132, 135, 136, 152, 156, 184, 189, 198, 200, 204, 228, 232, 234, 248, 276, 280, 296, 297, 300, 306, 328, 342, 344, 348, 351, 372, 376, 392, 414, 420, 424, 440, 444, 450, 459, 472, 488, 492, 513, 516, 520, 522
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
aQ[n_] := Plus @@ Last /@ Select[FactorInteger@n, 1 < #[[1]] < 4 &] == 3; Select[Range[522], aQ] (* Amiram Eldar, Aug 31 2019 after Robert G. Wilson v at A169611 *)
-
PARI
is(n) = bigomega(gcd(n, 1296)) == 3 \\ David A. Corneth, Aug 31 2019
Extensions
Corrected (200, 232, 280 inserted) and extended by R. J. Mathar, Jun 04 2010
Name corrected by Amiram Eldar, Aug 31 2019
Comments