A105425 Interpret A105424 as a binary sequence and convert to decimal.

0, 1, 2, 4, 5, 8, 10, 16, 17, 18, 20, 21, 32, 34, 36, 37, 40, 42, 64, 65, 66, 68, 69, 72, 74, 80, 81, 82, 84, 85, 128, 130, 132, 133, 136, 138, 144, 145, 146, 148, 149, 160, 162, 164, 165, 168, 170, 256, 257, 258, 260, 261, 264, 266, 272, 273, 274

Offset

0,3

Comments

See A105424 for further information. - N. J. A. Sloane, Mar 01 2021

Links

Rémy Sigrist, Table of n, a(n) for n = 0..10000

Rémy Sigrist, PARI program for A105425

Mathematica

A105425[n_]:=FromDigits[First[RealDigits[n, GoldenRatio, Floor[Log[GoldenRatio, Max[n, 1]]]+1]], 2]; Array[A105425, 100, 0] (* Paolo Xausa, Oct 20 2023 *)

Prog

(PARI) See Links section.

Crossrefs

Cf. A105424.

Sequence in context: A277101 A039895 A300351 * A199799 A032937 A126684

Adjacent sequences: A105422 A105423 A105424 * A105426 A105427 A105428

Keyword

nonn,base

Author

Bryan Jacobs (bryanjj(AT)gmail.com), Apr 08 2005

Status

approved