A100768 a(n) = p * (n^p) - 1 where p = prime(n).

1, 23, 1214, 114687, 537109374, 169789022207, 3954718737782518, 2738188573441261567, 203847576752007525206366, 2899999999999999999999999999999, 5950246173690264895628552080046140

Offset

1,2

Links

Table of n, a(n) for n=1..11.

Example

If n=1, then p=2 and a(1)=2*1^2 - 1 = 1.
If n=2, then p=3 and a(2)=3*2^3 - 1 = 23.
If n=3, then p=5 and a(3)=5*3^5 - 1 = 1214.

Maple

a:=n->ithprime(n)*n^ithprime(n)-1: seq(a(n), n=1..13); # Emeric Deutsch, Aug 01 2005

Mathematica

Table[Prime[n]*n^Prime[n]-1, {n, 12}] (* Harvey P. Dale, Jul 18 2018 *)

Prog

(PARI) a(n) = my(p=prime(n)); p*(n^p) - 1; \\ Michel Marcus, Aug 16 2019

Crossrefs

Sequence in context: A321569 A061063 A372207 * A353143 A201309 A049003

Adjacent sequences: A100765 A100766 A100767 * A100769 A100770 A100771

Keyword

nonn,easy

Author

Parthasarathy Nambi, Jan 03 2005

Extensions

More terms from Emeric Deutsch, Aug 01 2005

Status

approved