OFFSET
1,1
COMMENTS
If k is in the sequence then so is k*m. - David A. Corneth, Oct 08 2022
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
FORMULA
a(n + t) = a(n) + s for some finite t and s. - David A. Corneth, Oct 08 2022
EXAMPLE
14 is in the sequence since 14 = 2+2+2+2+2+1+1+1+1, where each summand divides 14.
PROG
(PARI) upto(n) = { my(v = vector(n, i, -1), t = 0); for(i = 1, n, if(v[i] == -1, print1(i", "); v[i] = is(i, 9); if(v[i] == 1, for(j = 2, n \ i, v[i*j] = 1; ) ) ); ); select(x->x >= 1, v, 1); }
is(n, {qd = 10}) = { my(d = divisors(n)); d = d[^#d]; forvec(x = vector(qd-1, i, [1, #d]), s = sum(i = 1, qd-1, d[x[i]]); if(n - s >= d[x[qd - 1]], if(n % (n - s) == 0, return(1); ) ) , 1 ); 0 } \\ David A. Corneth, Oct 08 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Aug 20 2022
STATUS
approved