|
%I #17 Dec 12 2022 09:38:22
%S 6,30,3130,823550,285311670622,302875106592266,827240261886336764194,
%T 1978419655660313589123998,20880467999847912034355032910590,
%U 2567686153161211134561828214731016126483498
%N a(n) = p^p + p, with p = prime(n).
%H Vincenzo Librandi, <a href="/A101340/b101340.txt">Table of n, a(n) for n = 1..77</a>
%F a(n) = A051674(n) + A000040(n). - _R. J. Mathar_, Apr 26 2007
%t Table[Prime[n]^Prime[n] + Prime[n], {n, 20}] (* _Vincenzo Librandi_, Mar 27 2014 *)
%o (PARI) for(x=1,16,print( prime(x)^prime(x)+prime(x)))
%o (PARI) a(n,p=prime(n))=p^p+p \\ _Charles R Greathouse IV_, Dec 12 2022
%o (Magma) [p^p+p: p in PrimesUpTo(40)]; // _Vincenzo Librandi_, Mar 27 2014
%K nonn
%O 1,1
%A _Jorge Coveiro_, Dec 24 2004
| 