|
%I #17 Oct 20 2023 08:40:51
%S 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,
%T 80,81,82,84,85,128,130,132,133,136,138,144,145,146,148,149,160,162,
%U 164,165,168,170,256,257,258,260,261,264,266,272,273,274
%N Interpret A105424 as a binary sequence and convert to decimal.
%C See A105424 for further information. - _N. J. A. Sloane_, Mar 01 2021
%H Rémy Sigrist, <a href="/A105425/b105425.txt">Table of n, a(n) for n = 0..10000</a>
%H Rémy Sigrist, <a href="/A105425/a105425.gp.txt">PARI program for A105425</a>
%t A105425[n_]:=FromDigits[First[RealDigits[n,GoldenRatio,Floor[Log[GoldenRatio,Max[n,1]]]+1]],2];Array[A105425,100,0] (* _Paolo Xausa_, Oct 20 2023 *)
%o (PARI) See Links section.
%Y Cf. A105424.
%K nonn,base
%O 0,3
%A Bryan Jacobs (bryanjj(AT)gmail.com), Apr 08 2005
|
