|
| |
|
|
A259654
|
|
a(n) = prime(n)^prime(n) - prime(n)^n.
|
|
0
|
|
|
|
2, 18, 3000, 821142, 285311509560, 302875101765444, 827240261885926425504, 1978419655660296605560938, 20880467999847912032553880249104, 2567686153161211134561828214310308893183268, 17069174130723235958610643029033906279148329600
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..11.
|
|
|
FORMULA
|
a(n) = A051674(n) - A062457(n).
|
|
|
MATHEMATICA
|
Table[Prime[n]^Prime[n] - Prime[n]^n, {n, 1, 10}]
#[[1]]^#[[1]]-#[[1]]^#[[2]]&/@Table[{Prime[n], n}, {n, 15}] (* Harvey P. Dale, Nov 10 2016 *)
|
|
|
PROG
|
(MAGMA) [NthPrime(n)^NthPrime(n)-NthPrime(n)^n: n in [1..12]]; // Vincenzo Librandi, Jul 03 2015
(PARI) a(n, p=prime(n))=p^p - p^n \\ Charles R Greathouse IV, Jul 22 2016
|
|
|
CROSSREFS
|
Cf. A062481, A051674.
Sequence in context: A333164 A076954 A206847 * A060598 A055687 A006262
Adjacent sequences: A259651 A259652 A259653 * A259655 A259656 A259657
|
|
|
KEYWORD
|
nonn,easy
|
|
|
AUTHOR
|
Ilya Gutkovskiy, Jul 02 2015
|
|
|
STATUS
|
approved
|
| |
|
|
