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
KEYWORD
nonn,base,less
AUTHOR
Michel Lagneau, Sep 10 2010
STATUS
approved