OFFSET
0,1
COMMENTS
Or: add two times the repunit of matching length to A007088(n).
EXAMPLE
0+2, 1+2, 10+22, 11+22, 100+222, 101+222, 110+222, 111+222, 1000+2222, 1001+2222,...
MATHEMATICA
Table[Sum[Table[((Reverse[IntegerDigits[n, 2]]) /. 0 -> 2) /. 1 -> 3, {n, 0, 50}][[n]][[m]]*10^( m - 1), {m, 1, Length[Table[((Reverse[IntegerDigits[n, 2]]) /. 0 -> 2) /. 1 -> 3, {n, 0, 50}][[n]]]}], {n, 1, 51}]
Table[FromDigits[2 + IntegerDigits[n, 2]], {n, 0, 100}]
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Roger L. Bagula, Apr 28 2010
STATUS
approved