A386796 Numbers that have exactly one exponent in their prime factorization that is equal to 2.
4, 9, 12, 18, 20, 25, 28, 44, 45, 49, 50, 52, 60, 63, 68, 72, 75, 76, 84, 90, 92, 98, 99, 108, 116, 117, 121, 124, 126, 132, 140, 144, 147, 148, 150, 153, 156, 164, 169, 171, 172, 175, 188, 198, 200, 204, 207, 212, 220, 228, 234, 236, 242, 244, 245, 260, 261, 268
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
- Ertan Elma and Greg Martin, Distribution of the number of prime factors with a given multiplicity, Canadian Mathematical Bulletin, Vol. 67, No. 4 (2024), pp. 1107-1122; arXiv preprint, arXiv:2406.04574 [math.NT], 2024.
- Index entries for sequences computed from indices in prime factorization.
Crossrefs
Programs
-
Mathematica
f[p_, e_] := If[e == 2, 1, 0]; s[1] = 0; s[n_] := Plus @@ f @@@ FactorInteger[n]; Select[Range[300], s[#] == 1 &]
-
PARI
isok(k) = vecsum(apply(x -> if(x == 2, 1, 0), factor(k)[, 2])) == 1;
Comments