A171228 n^(p-n) where p is smallest prime > n.
0, 1, 2, 9, 4, 25, 6, 2401, 512, 81, 10, 121, 12, 28561, 2744, 225, 16, 289, 18, 130321, 8000, 441, 22, 148035889, 7962624, 390625, 17576, 729, 28, 841, 30, 887503681, 33554432, 1185921, 39304, 1225, 36, 1874161, 54872, 1521, 40, 1681, 42, 3418801
Offset: 0
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 0..1000
Programs
-
Mathematica
Table[n^(NextPrime[n]-n),{n,0,50}] (* Harvey P. Dale, Jun 20 2013 *)
Extensions
Definition corrected by Andrew Weimholt, Dec 08 2009