|
%I #6 Jul 28 2015 04:09:15
%S 1,6,34,58,148,196,334,482,626,980,1160,1468,1798,2138,2614,3056,3770,
%T 4130,4678,5390,5822,6782,7784,8698,9688,10498,10906,11764,13504,
%U 14422,17006,17798,19996,20542,22940,24142,25730,27698
%N a(n) = p(n)*p(n+2) - 3*p(n+1), where p(n) is the n-th prime.
%p A152528 := proc(n)
%p ithprime(n)*ithprime(n+2)-3*ithprime(n+1) ;
%p end proc: # _R. J. Mathar_, Jul 28 2015
%t #[[1]]*#[[3]]-3*#[[2]]&/@Partition[Prime[Range[50]],3,1] (* _Harvey P. Dale_, Jul 14 2014 *)
%Y Cf. A000040, A111071, A152527, A152529, A152530, A152531, A152532.
%K easy,nonn
%O 1,2
%A _Omar E. Pol_, Dec 06 2008
|
