A386807 Numbers without an exponent 5 in their prime factorization.
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70
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.
- D. Suryanarayana, Semi-k-free integers, Elemente der Mathematik, Vol. 26 (1971), pp. 39-40.
- D. Suryanarayana and R. Sitaramachandra Rao, Distribution of semi-k-free integers, Proceedings of the American Mathematical Society, Vol. 37, No. 2 (1973), pp. 340-346.
- Index entries for sequences computed from indices in prime factorization.
Crossrefs
Programs
-
Mathematica
Select[Range[100], !MemberQ[FactorInteger[#][[;; , 2]], 5] &]
-
PARI
isok(k) = vecsum(apply(x -> if(x == 5, 1, 0), factor(k)[, 2])) == 0;
Comments