Amiram Eldar, <a href="/A369937/b369937_1.txt">Table of n, a(n) for n = 1..10000</a>
Amiram Eldar, <a href="/A369937/b369937_1.txt">Table of n, a(n) for n = 1..10000</a>
reviewed
approved
proposed
reviewed
editing
proposed
Amiram Eldar, <a href="/A369937/b369937_1.txt">Table of n, a(n) for n = 1..10000</a>
allocated for Amiram EldarNumbers whose maximal exponent in their prime factorization is square.
1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 16, 17, 19, 21, 22, 23, 26, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 46, 47, 48, 51, 53, 55, 57, 58, 59, 61, 62, 65, 66, 67, 69, 70, 71, 73, 74, 77, 78, 79, 80, 81, 82, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 102
1,2
Select[Range[100], IntegerQ@ Sqrt[Max[FactorInteger[#][[;; , 2]]]] &]
(PARI) lista(kmax) = for(k = 1, kmax, if(k == 1 || issquare(vecmax(factor(k)[, 2])), print1(k, ", ")));
allocated
nonn,easy
Amiram Eldar, Feb 06 2024
approved
editing
allocated for Amiram Eldar
allocated
approved