OFFSET
1,2
COMMENTS
a(6) > 6.5*10^10, if it exist.
EXAMPLE
a(2) = 44 since 44 = 2^2 * 11 and 45 = 3^2 * 5 both have one even and one odd exponent in their prime factorization, 43 and 46 have no even exponent, and 44 is the least number with this property.
MATHEMATICA
f[p_, e_] := (-1)^e; q[1] = True; q[n_] := Plus @@ f @@@ FactorInteger[n] == 0; seq[len_, nmax_] := Module[{s = Table[0, {len}], v = {1}, n = 2, c = 0, m}, While[c <= len && n <= nmax, If[q[n], v = Join[v, {n}], m = Length[v]; v = {}; If[0 <= m <= len && s[[m]] == 0, c++; s[[m]] = n - m]]; n++]; s]; seq[4, 10^6]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Aug 06 2022
STATUS
approved