OFFSET
1,2
PROG
(PARI) lista(nn) = {for (n=1, nn, if (numdiv(n)==sum(k=1, n, (-1)^((k/2^valuation(k, 2)-1)/2)), print1(n, ", ")); ); } \\ Michel Marcus, Apr 22 2013
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Jun 06 2011
EXTENSIONS
Entries corrected by R. J. Mathar, Jun 07 2011
STATUS
approved