A007965 a(n) = n^prime(n) - prime(n)^n.

-1, -1, 118, 13983, 48667074, 13055867207, 232630103648534, 144115171092292831, 8862938117851348434466, 99999999999999579292766699799, 191943424957750455095669944886980, 8505622499821102144569548732108989899311

Offset

1,3

Links

Matthew House, Table of n, a(n) for n = 1..96

Example

a(3) = 3^5 - 5^3 = 243 - 125 = 118.
a(4) = 16384 - 2401 = 13983.

Mathematica

lst={}; Do[p=Prime[n]; AppendTo[lst, n^p-p^n], {n, 4!}]; lst (* Vladimir Joseph Stephan Orlovsky, Sep 19 2008 *)

Prog

(PARI) vector(13, n, n^prime(n) - prime(n)^n) \\ Michel Marcus, Aug 05 2015

Crossrefs

Cf. A000312, A051674.

Sequence in context: A231283 A165156 A062500 * A140893 A143776 A191949

Adjacent sequences: A007962 A007963 A007964 * A007966 A007967 A007968

Keyword

sign

Author

Dennis S. Kluk (mathemagician(AT)ameritech.net)

Extensions

More terms from Labos Elemer, Jul 09 2001

Status

approved