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

4, 100, 1100100, 100001100100101000100, 1010110101111001011010001101011011001100110110011001100101110100100

Offset

1,1

Links

Table of n, a(n) for n=1..5.

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A202989 A343183 A251361 * A363815 A218884 A059105

Adjacent sequences: A260022 A260023 A260024 * A260026 A260027 A260028

Keyword

nonn,base,changed

Author

N. J. A. Sloane, Jul 14 2015

Status

approved