login
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]].
1
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
OFFSET
0,1
COMMENTS
The idea here is to associate a pseudo-random sequence with the BBP pi digits.
LINKS
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: A154395 A371671 A214609 * A341941 A090341 A251092
KEYWORD
nonn,base
AUTHOR
STATUS
approved