This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A269130 #38 Jul 08 2019 18:26:17 %S A269130 0,2,12,14,104,106,116,118,1008,1010,1020,1022,1112,1114,1124,1126, %T A269130 10016,10018,10028,10030,10120,10122,10132,10134,11024,11026,11036, %U A269130 11038,11128,11130,11140,11142,100032,100034,100044,100046,100136,100138,100148,100150,101040 %N A269130 a(n) = n + (n base 2 regarded as a decimal number). %C A269130 All terms in this sequence are even, because every even number produces an even binary number (ends with 0) and every odd number produces an odd binary number (ends with 1). %H A269130 Isaac S. Friedman, <a href="/A269130/b269130.txt">Table of n, a(n) for n = 0..999</a> %F A269130 a(n) = A007088(n) + n. %e A269130 a(4) = convert_to_binary(4) + 4 = 100 + 4 = 104. %t A269130 Table[n+FromDigits[IntegerDigits[n,2]],{n,0,40}] (* _Harvey P. Dale_, Jul 08 2019 *) %o A269130 (PARI) a(n)=fromdigits(binary(n))+n \\ _Charles R Greathouse IV_, Feb 19 2016 %o A269130 (PARI) a(n) = subst(Pol(binary(n)), x, 10) + n \\ _Michel Marcus_, Feb 20 2016 %Y A269130 Cf. A000027 (counting numbers), A007088 (binary numbers). %Y A269130 Cf. A127906 (multiplicated), A228071 (subtracted). %K A269130 nonn,easy,base %O A269130 0,2 %A A269130 _Isaac S. Friedman_, Feb 19 2016