|
| |
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
COMMENTS
|
This locates "balanced" parities averaged over the first n decimals of the decimal representation of the golden ratio. - R. J. Mathar, Nov 07 2011
|
|
|
LINKS
|
Table of n, a(n) for n=1..45.
|
|
|
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: A057910 A022305 A103799 * A141104 A047410 A164875
Adjacent sequences: A175814 A175815 A175816 * A175818 A175819 A175820
|
|
|
KEYWORD
|
nonn,base,less
|
|
|
AUTHOR
|
Michel Lagneau, Sep 10 2010
|
|
|
STATUS
|
approved
|
| |
|
|
