A260025 Convert the last term from decimal to binary! a(1)=4.

4, 100, 1100100, 100001100100101000100, 1010110101111001011010001101011011001100110110011001100101110100100

Offset: 1

Author

N. J. A. Sloane, Jul 14 2015

Keywords

• nonn
• base

Crossrefs

For initial terms 2 through 12 see A008559, A006938, A260025, A260024, A260026, A260027, A260028, A260029, A008559 (again), A006938 (again), A260030 respectively.

Programs

Mathematica

NestList[FromDigits[IntegerDigits[#,2]]&,4,5] (* Harvey P. Dale, Jun 11 2017 *)

PARI

a(n) = my(k=4); for(i=2, n, k=fromdigits(binary(k))); k; \\ Jinyuan Wang, Jan 18 2025