A100768 - OEIS

%I #12 Aug 16 2019 07:52:48

%S 1,23,1214,114687,537109374,169789022207,3954718737782518,

%T 2738188573441261567,203847576752007525206366,

%U 2899999999999999999999999999999,5950246173690264895628552080046140

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

%e If n=1, then p=2 and a(1)=2*1^2 - 1 = 1.

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

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

%p a:=n->ithprime(n)*n^ithprime(n)-1: seq(a(n),n=1..13); # _Emeric Deutsch_, Aug 01 2005

%t Table[Prime[n]*n^Prime[n]-1,{n,12}] (* _Harvey P. Dale_, Jul 18 2018 *)

%o (PARI) a(n) = my(p=prime(n)); p*(n^p) - 1; \\ _Michel Marcus_, Aug 16 2019

%K nonn,easy

%O 1,2

%A _Parthasarathy Nambi_, Jan 03 2005

%E More terms from _Emeric Deutsch_, Aug 01 2005