|
%I #29 Sep 08 2022 08:46:16
%S 3,78,15600,5764458,25937409960,23298084751188,168377826535263360,
%T 288441413566727295942,3244150909895169974315088,
%U 176994576151109738690640664532,645590698195138072217104753157760,43335257111193343900187118461545288548
%N a(n) = prime(n)^(2*n) - prime(n)^(n-1).
%F a(n) = sigma(prime(n)^n) * phi(prime(n)^n) = A062354(A062457(n)).
%p A271182:=n->ithprime(n)^(2*n)-ithprime(n)^(n-1): seq(A271182(n), n=1..15);
%t Table[Prime[n]^(2*n) - Prime[n]^(n - 1), {n, 12}]
%o (Magma) [NthPrime(n)^(2*n)-NthPrime(n)^(n-1) : n in [1..12]];
%o (PARI) a(n) = prime(n)^(2*n) - prime(n)^(n-1); \\ _Altug Alkan_, Apr 07 2016
%Y Cf. A000010, A000040, A000203, A062354, A062457.
%K nonn,easy
%O 1,1
%A _Wesley Ivan Hurt_, Apr 07 2016
| 