|
|
A067053
|
|
Floor[ Sum_{1..n} 1/i ]^n.
|
|
0
|
|
|
1, 1, 1, 16, 32, 64, 128, 256, 512, 1024, 177147, 531441, 1594323, 4782969, 14348907, 43046721, 129140163, 387420489, 1162261467, 3486784401, 10460353203, 31381059609, 94143178827, 282429536481, 847288609443
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
LINKS
|
|
|
EXAMPLE
|
a(6) = {floor[(1+1/2+1/3+1/4+1/5+1/6)]}^6 = {floor[2.45]}^6= 2^6= 64.
|
|
MATHEMATICA
|
Table[ Floor[ Sum[(1/i), {i, 1, n}]]^n, {n, 1, 30} ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|