A098104 Numbers of the form 7^p - p^7 where p is prime.

-79, -1844, -61318, 0, 1957839572, 96826261890, 232630103648534, 11398894291501404, 27368747336676090896, 3219905755813162476961298, 157775382034845779102428632, 18562115921017574302358231794074

Offset: 1

Author

Parthasarathy Nambi, Sep 22 2004

Keywords

• sign

Examples

			7^3 - 3^7 = -1844.
		

Crossrefs

Cf. A097201, A097202.

Programs

Mathematica

Table[7^Prime[n] - Prime[n]^7, {n, 12}] (* Robert G. Wilson v, Sep 23 2004 *)
p7[n_]:=Module[{p=Prime[n]},7^p-p^7];Array[p7,20] (* Harvey P. Dale, Oct 06 2011 *)

Extensions

More terms from Robert G. Wilson v, Sep 23 2004