|
|
A070327
|
|
Smallest nontrivial power of n starting with n and greater than n.
|
|
4
|
|
|
256, 387420489, 4096, 59604644775390625, 60466176, 79792266297612001, 8589934592, 984770902183611232881, 100, 1191817653772720942460132761, 1283918464548864, 137858491849, 1475789056
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
f[n_] := Block[{k = 2, s = ToString[n]}, While[ StringPosition[ ToString[n^k], s, 1] != {{1, Integer_}}, k++ ]; n^k]; Table[ f[n], {n, 2, 10}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
The 15th term is too large to include.
|
|
STATUS
|
approved
|
|
|
|