%I #12 Aug 26 2015 23:22:35
%S 87,503,20207,903983,2026334063,98111316047,233393582711567,
%T 11417969834487023,27380668363187561903,3220092020396733736776527,
%U 157780038648336559551388463,18562188680594166420755526825167
%N a(n) = 2^p + 3^p + 5^p + 7^p where p = prime(n).
%e a(1) = 2^2 + 3^2 + 5^2 + 7^2 = 87.
%t Table[2^Prime[n] + 3^Prime[n] + 5^Prime[n] + 7^Prime[n], {n, 1, 15}] (* _Stefan Steinerberger_, Feb 28 2006 *)
%t Table[Total[Prime[Range[4]]^Prime[n]],{n,20}] (* _Harvey P. Dale_, May 08 2012 *)
%o (PARI) main(m)=forprime(p=2,m,print1(2^p + 3^p + 5^p + 7^p,", ")) \\ _Anders Hellström_, Aug 26 2015
%K nonn
%O 1,1
%A _Parthasarathy Nambi_, Sep 27 2004
%E More terms from _Stefan Steinerberger_, Feb 28 2006