OFFSET
1,11
COMMENTS
LINKS
MATHEMATICA
Mod[#, DigitCount[#, 2, 1]]&/@Range[90] (* Harvey P. Dale, Nov 08 2011 *)
PROG
(Haskell)
a199238 n = a199238_list !! (n-1)
a199238_list = zipWith mod [1..] $ tail a000120_list
(PARI) A199238(n)=n%norml2(binary(n)) \\ M. F. Hasler, Oct 09 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 04 2011
STATUS
approved