OFFSET
0,2
PROG
(PARI) a056737(n)={n=divisors(n); n[(2+#n)\2]-n[(1+#n)\2]; } \\ from A056737
lista(nn) = {olda = 1; for (n=1, nn+1, print1(olda, ", "); newa = olda + 1; while (a056737(newa) != n, newa++); olda = newa; ); } \\ Michel Marcus, Feb 11 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Apr 29 2008
EXTENSIONS
More terms from Michel Marcus, Feb 11 2014
STATUS
approved