OFFSET
0,3
COMMENTS
A000120(a(n)) = n.
LINKS
Donovan Johnson, Table of n, a(n) for n = 0..60
MATHEMATICA
a = Table[0, {30}]; Do[t = n(n + 1)/2; c = Count[ IntegerDigits[t, 2], 1]; If[ a[[c + 1]] == 0, a[[c + 1]] = t], {n, 1, 10^8}]; a (* Robert G. Wilson v, Dec 03 2003 *)
PROG
(Haskell)
a089999 = a000217 . a211201 -- Reinhard Zumkeller, Mar 18 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Nov 20 2003
EXTENSIONS
More terms from Robert G. Wilson v, Dec 03 2003
Offset corrected by Donovan Johnson, May 01 2012
STATUS
approved