OFFSET
1,2
COMMENTS
Analogous to A046641.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..20000
MAPLE
b:= proc(n) option remember; `if`(n=0, 1, add(b(n-j)*add(
`if`(d::odd, d, 0), d=numtheory[divisors](j)), j=1..n)/n)
end:
a:= proc(n) local k; for k while irem(b(k), n)>0 do od; k end:
seq(a(n), n=1..100); # Alois P. Heinz, Aug 17 2019
MATHEMATICA
t[_] := 0; k = 1; f[n_] := Block[{p = PartitionsQ@n, lst}, lst = Select[Range@100, Mod[p, #] == 0 &]; If[t[#] == 0, t[#] = n] & /@ lst]; While[k < 1001, f[k]; k++]; t@# & /@ Range@100
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jul 31 2019
STATUS
approved