OFFSET
1,1
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
Michael De Vlieger, 2048 pixel square bitmap of n = 1..4194304, read left to right, top to bottom, showing odd A126706(n) in black.
MAPLE
filter:= proc(n) local F;
F:= ifactors(n)[2];
nops(F)>1 and max(F[.., 2]) > 1
end proc:
select(filter, [seq(i, i = 1 .. 1000, 2)]); # Robert Israel, Mar 01 2023
MATHEMATICA
Select[Range[1, 825, 2], Nor[PrimePowerQ[#], SquareFreeQ[#]] &]
PROG
(PARI) isok(k) = (k%2) && !isprimepower(k) && !issquarefree(k); \\ Michel Marcus, Feb 28 2023
(Python)
from itertools import count, islice
from sympy import factorint
def A360769_gen(startvalue=1): # generator of terms >= startvalue
return filter(lambda n: sum(f:=factorint(n).values()) > len(f) > 1, count(max(startvalue+(startvalue&1^1), 1), 2))
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Feb 28 2023
STATUS
approved