|
%I #16 Feb 17 2021 01:57:55
%S 2,4,6,8,32,64,66,70,72,316,318,326,328,330,332,336,606,636,638,654,
%T 670,672,678,680,828,830,832,834,836,838,840,842,844,846,850,880,882,
%U 884,898,900,902,904,906,908,914,916,918,928,942,948,962,964,966,968
%N Let sqrt(2) = 1.d(1)d(2)d(3)... = 1.0110101000001... be the expansion of sqrt(2) in base 2; sequence gives values of j such that j/2 = Sum_{k=1..j} d(k).
%H Harvey P. Dale, <a href="/A068541/b068541.txt">Table of n, a(n) for n = 1..2000</a>
%t nn=1000;Transpose[Select[With[{c=Accumulate[Rest[RealDigits[Sqrt[2], 2,nn][[1]]]]},Thread[{c,Range[nn-1]}]],Last[#]/2==First[#]&]][[2]] (* _Harvey P. Dale_, Feb 27 2012 *)
%Y Cf. A004539.
%K base,easy,nonn
%O 1,1
%A _Benoit Cloitre_, Mar 22 2002
|
