|
|
A064318
|
|
a(n) satisfies a(n)! <= n^n < (a(n)+1)!.
|
|
3
|
|
|
1, 1, 2, 4, 5, 6, 8, 9, 10, 11, 13, 14, 15, 16, 18, 19, 20, 21, 23, 24, 25, 26, 28, 29, 30, 31, 32, 34, 35, 36, 37, 38, 40, 41, 42, 43, 44, 46, 47, 48, 49, 50, 52, 53, 54, 55, 56, 58, 59, 60, 61, 62, 64, 65, 66, 67, 68, 70, 71, 72, 73, 74, 75, 77, 78, 79, 80, 81, 83, 84, 85, 86
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
EXAMPLE
|
a(5)=6 since 6! = 720 <= 5^5 = 3125 < 7! = 5040.
|
|
PROG
|
(PARI) { a=1; for (n=0, 1000, p=n^n; if (n>1, a++); until (a! > p, a++); a--; write("b064318.txt", n, " ", a) ) } \\ Harry J. Smith, Sep 11 2009
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|