|
Search: id:A120728
|
|
|
| A120728 |
|
digit pattern characteristic of the exponential function modulo 3: Mod[Floor[Exp[n]], 3]. |
|
+0
1
|
|
| 2, 1, 2, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 1, 2, 2, 1, 0, 2, 2, 2, 1, 1, 1, 2, 2, 0, 2, 1, 2, 0, 2, 1, 1, 2, 2, 2, 1, 0, 1, 2, 0, 2, 1, 0, 0, 0, 2, 1
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
The sequence Set from domain {0,1,2} seems to be chaotic. Comes from trying to find an alternative function for the modulo for a real number that gives an integer.
|
|
FORMULA
|
a(n) = Mod[Floor[Exp[n]], 3]=Floor[Exp[n]] - 3*Floor[Exp[n]/3]
|
|
MATHEMATICA
|
Table[Mod[Floor[Exp[n]], 3], {n, 1, 50}] Table[Floor[Exp[n]] - 3*Floor[Exp[n]/3], {n, 1, 50}]
|
|
CROSSREFS
|
Adjacent sequences: A120725 A120726 A120727 this_sequence A120729 A120730 A120731
Sequence in context: A137853 A094114 A104607 this_sequence A092149 A127173 A035160
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Aug 19 2006
|
|
|
Search completed in 0.002 seconds
|
