login
Places n such that A175816(n) = 0.
0

%I #9 Sep 16 2017 00:32:27

%S 2,4,6,10,12,14,16,2342,2346,2348,2352,2354,2362,2368,2372,2374,2376,

%T 2392,2396,2398,2400,2404,2406,2408,2410,2414,2416,2418,2422,2424,

%U 2426,2428,2438,2440,2448,2450,2480,2484,2486,2488,2540,2542,2544,2566,2568

%N Places n such that A175816(n) = 0.

%C This locates "balanced" parities averaged over the first n digits of the decimal representation of the golden ratio. - _R. J. Mathar_, Nov 07 2011

%e 10 is in the sequence because, with 10 digits of phi = 1.618033988, we obtain

%e (-1)^1 + (-1)^6 + (-1)^1 + (-1)^8 + (-1)^0 + (-1)^3 + (-1)^3 + (-1)^9 + (-1)^8 + (-1)^8 = 0.

%t L= Rest@FoldList[ Plus, 0, (-1)^First@ RealDigits[GoldenRatio, 10, 7000]] ;Do[If [L[[n]]==0,Print[n]],{n,7000}]

%Y Cf. A175816.

%K nonn,base,less

%O 1,1

%A _Michel Lagneau_, Sep 10 2010