|
| |
|
|
A144788
|
|
a[n+1]=a[n]^3-a[n]+1 with a[1]=3
|
|
11
| |
|
|
3, 25, 15601, 3797146111201, 54748462363349863789331489199516542401, 164102719777453765093060237305105241279744702931788833463132240094953276902575203916973404664183940277497050364801
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| For constant c=1.4298877386573092048908617214... see A144811
|
|
|
FORMULA
| a[n+1]=a[n]^3-a[n]+1 and a[1]=3 c=1.4298877386573092048908617214089990105579282072122009922564664840947664406795038966101674534946818097262760272751269770338395914090542924 a(n) =round[c^(3^n)]
|
|
|
MATHEMATICA
| a = {}; k = 3; Do[AppendTo[a, k]; k = k^3 - k + 1, {n, 1, 8}]; a (*Artur Jasinski*)
|
|
|
CROSSREFS
| A000058, A082732, A144779, A144780, A144781, A144782, A144783, A144784, A144785, A144786, A144787, A144788
Sequence in context: A101733 A094815 A183248 * A062181 A058993 A083109
Adjacent sequences: A144785 A144786 A144787 * A144789 A144790 A144791
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Sep 22 2008
|
| |
|
|
