OFFSET
1,3
PROG
(PARI) lista(nn) = {my(row = vector(1), v = vector(nn)); row[1] = 0; for (n=1, nn, v[n] = vecsum(row); row = vector(n+1, k, #select(x->(gcd(x, k)!=1), vector(n, k, v[k]))); ); v; } \\ Michel Marcus, Sep 06 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Feb 01 2006
EXTENSIONS
More terms from Michel Marcus, Sep 06 2019
STATUS
approved