editing
approved
editing
approved
editing
approved
editing
approved
Alois P. Heinz, <a href="/A300061/b300061.txt">Table of n, a(n) for n = 1..10000</a>
a:= proc(n) option remember; local k; for k from 1+
`if`(n=1, 0, a(n-1)) while add(numtheory[pi]
(i[1])*i[2], i=ifactors(k)[2])::odd do od; k
end:
seq(a(n), n=1..100); # Alois P. Heinz, May 22 2018
approved
editing
proposed
approved
editing
proposed