OFFSET
1,1
COMMENTS
Contains A181488 as a subsequence.
LINKS
PROG
(PARI) A181489(Nmax) = { my(S=[]); for(n=2, Nmax, my(F=n); for(i=1, n-1, F=(n-i)*ceil(F/(n-i)+1)); S=setunion(S, Set(F)); isprime(F) & next; for(i=1, #F=factor(F)~, setsearch(S, F[1, i])||next(2)); print1(factorback(F~), ", "))}
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Oct 29 2010
EXTENSIONS
a(22)-a(32) from Donovan Johnson and Klaus Brockhaus, Oct 30 2010
STATUS
approved