|
| |
|
|
A152159
|
|
A sequence set up on the base 16 Pi digits BBP: a(n)=Floor[Mod[(4/(8*n + 1) - 2/(8*n + 4) - 1/(8*n + 5) - 1/(8*n + 6))*16^n, 4]].
|
|
0
| |
|
|
3, 2, 2, 1, 2, 0, 2, 1, 1, 0, 0, 1, 1, 0, 2, 2, 1, 0, 3, 0, 3, 2, 0, 0, 2, 3, 1, 2, 3, 3, 3, 2, 2, 2, 1, 0, 1, 2, 0, 1, 2, 0, 1, 3, 3, 0, 1, 3, 1, 2, 1, 0, 0, 0, 0, 2, 1, 2, 0, 1, 3, 1, 2, 2, 3, 3, 0, 1, 1, 0, 3, 2, 2, 3, 2, 3, 3, 2, 0, 3, 1, 3, 0, 1, 1, 3, 3, 1, 1, 0, 0, 3, 1, 3, 1, 0, 1, 3, 0, 1, 0
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| The idea here is to associate a pseudo-random sequence with the BBP pi digits.
|
|
|
FORMULA
| a(n)=Floor[Mod[(4/(8*n + 1) - 2/(8*n + 4) - 1/(8*n + 5) - 1/(8*n + 6))*16^n, 4]].
|
|
|
MATHEMATICA
| Table[Floor[Mod[(4/(8*n + 1) - 2/(8*n + 4) - 1/(8*n + 5) - 1/(8*n + 6))*16^n, 4]], {n, 0, 100}]
|
|
|
CROSSREFS
| Sequence in context: A065310 A016558 A154395 * A090341 A175632 A088435
Adjacent sequences: A152156 A152157 A152158 * A152160 A152161 A152162
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Roger L. Bagula and Alexander R. Povolotsky (rlbagulatftn(AT)yahoo.com), Nov 27 2008
|
| |
|
|
