OFFSET
1,1
COMMENTS
LINKS
Reinhard Zumkeller and Donovan Johnson, Table of n, a(n) for n = 1..10000 (first 1000 terms from Reinhard Zumkeller)
MAPLE
For Maple code see A230091.
MATHEMATICA
nt = 1000; (* number of terms to produce *)
S[kmax_] := S[kmax] = Table[k + Total[IntegerDigits[k, 2]], {k, 0, kmax}] // Tally // Select[#, #[[2]] == 3&][[All, 1]]& // PadRight[#, nt]&;
S[nt];
S[kmax = 2 nt];
While[S[kmax] =!= S[kmax/2], kmax *= 2];
S[kmax] (* Jean-François Alcover, Mar 04 2023 *)
PROG
(Haskell)
a230092 n = a230092_list !! (n-1)
a230092_list = filter ((== 3) . a228085) [1..]
-- Reinhard Zumkeller, Oct 13 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Oct 10 2013
STATUS
approved