A140511 - OEIS

%I #14 Mar 25 2023 08:20:28

%S 7,16,30,67,93,154,192,279,436,499,705,862,948,1131,1434,1771,1894,

%T 2280,2557,2704,3162,3489,4009,4755,5152,5358,5779,5997,6448,8130,

%U 8649,9454,9735,11176,11479,12406,13368,14031,15054,16111,16476,18337,18723,19504

%N a(n) = (prime(n)^2 + prime(n+1))/2.

%H G. C. Greubel, <a href="/A140511/b140511.txt">Table of n, a(n) for n = 2..1000</a>

%F a(n) = (A001248(n) + A000040(n+1))/2. - _Elmo R. Oliveira_, Mar 24 2023

%t (#[[1]]^2+#[[2]])/2&/@Partition[Prime[Range[2,50]],2,1] (* _Harvey P. Dale_, Oct 15 2015 *)

%o (PARI) for(n=2,50, print1(((prime(n))^2 + prime(n+1))/2, ", ")) \\ _G. C. Greubel_, Feb 23 2017

%Y Cf. A000040, A001248.

%K nonn

%O 2,1

%A _Alexander R. Povolotsky_, Jun 30 2008

%E More terms from _Harvey P. Dale_, Oct 15 2015