login
A175817
Places n such that A175816(n) = 0.
0
2, 4, 6, 10, 12, 14, 16, 2342, 2346, 2348, 2352, 2354, 2362, 2368, 2372, 2374, 2376, 2392, 2396, 2398, 2400, 2404, 2406, 2408, 2410, 2414, 2416, 2418, 2422, 2424, 2426, 2428, 2438, 2440, 2448, 2450, 2480, 2484, 2486, 2488, 2540, 2542, 2544, 2566, 2568
OFFSET
1,1
COMMENTS
This locates "balanced" parities averaged over the first n digits of the decimal representation of the golden ratio. - R. J. Mathar, Nov 07 2011
EXAMPLE
10 is in the sequence because, with 10 digits of phi = 1.618033988, we obtain
(-1)^1 + (-1)^6 + (-1)^1 + (-1)^8 + (-1)^0 + (-1)^3 + (-1)^3 + (-1)^9 + (-1)^8 + (-1)^8 = 0.
MATHEMATICA
L= Rest@FoldList[ Plus, 0, (-1)^First@ RealDigits[GoldenRatio, 10, 7000]] ; Do[If [L[[n]]==0, Print[n]], {n, 7000}]
CROSSREFS
Cf. A175816.
Sequence in context: A120351 A022305 A103799 * A256773 A141104 A047410
KEYWORD
nonn,base,less
AUTHOR
Michel Lagneau, Sep 10 2010
STATUS
approved