OFFSET
1,2
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
MATHEMATICA
mx = 1600; Join[{0}, Most@ Union@ Flatten@ Table[(2^j -1) (2^k +1), {j, Log2@ mx}, {k, 0, Log2[mx/(2^j -1)]} ]] (* Ivan Neretin, Feb 12 2018 and slightly modified by Robert G. Wilson v, Feb 13 2018 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Feb 01 2010
EXTENSIONS
Extended by Ray Chandler and R. J. Mathar, Feb 06 2010
STATUS
approved