OFFSET
1,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..20000
FORMULA
A317241(a(n)) = 1.
MAPLE
b:= proc(n, s) option remember; local p, r; if n=1 then 1 else r:=0;
for p in numtheory[factorset](n-1) minus s while r<2
do r:= r+b((n-1)/p, s union {p}) od; `if`(r<2, r, 2)
fi
end:
a:= proc(n) option remember; local k; for k from
`if`(n=1, 1, 1+a(n-1)) while b(k, {})<>1 do od; k
end:
seq(a(n), n=1..100);
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Jul 27 2018
STATUS
approved