login
A068541
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).
1
2, 4, 6, 8, 32, 64, 66, 70, 72, 316, 318, 326, 328, 330, 332, 336, 606, 636, 638, 654, 670, 672, 678, 680, 828, 830, 832, 834, 836, 838, 840, 842, 844, 846, 850, 880, 882, 884, 898, 900, 902, 904, 906, 908, 914, 916, 918, 928, 942, 948, 962, 964, 966, 968
OFFSET
1,1
LINKS
MATHEMATICA
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 *)
CROSSREFS
Cf. A004539.
Sequence in context: A092047 A057809 A135632 * A329887 A108425 A215216
KEYWORD
base,easy,nonn
AUTHOR
Benoit Cloitre, Mar 22 2002
STATUS
approved