|
%I #10 Jul 29 2023 17:29:46
%S 2,163,967,4493,9137,32507,39709,47903,67523,176849,221813,708559,
%T 1543463,1726667,2481113,2997409,3428423,3737579,4410547,4775383,
%U 5774273,6209893,6903563,9001627,9585343,10507397,11153833,15596033
%N Primes 2 less than a tetrahedral number.
%C Primes of the form A000292(k)-2.
%H Robert Israel, <a href="/A162904/b162904.txt">Table of n, a(n) for n = 1..10000</a>
%e 2 = 4-2 = A000292(2)-2. 163 = 165-2 = A000292(9)-2. 967 = 969-2 = A000292(17)-2.
%p select(isprime, [seq(n*(n+1)*(n+2)/6-2,n=1..10^3)]); # _Robert Israel_, Jun 27 2019
%t s1=s2=0;lst={};Do[s2+=s1+=n;If[PrimeQ[s2-2],AppendTo[lst,s2-2]],{n,2*6!}]; lst
%t Select[Table[(n(n+1)(n+2))/6-2,{n,500}],PrimeQ] (* _Harvey P. Dale_, Jul 29 2023 *)
%Y Cf. A000292.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jul 16 2009
%E Definition rephrased by _R. J. Mathar_, Jul 27 2009
|
