|
|
A162904
|
|
Primes 2 less than a tetrahedral number.
|
|
1
|
|
|
2, 163, 967, 4493, 9137, 32507, 39709, 47903, 67523, 176849, 221813, 708559, 1543463, 1726667, 2481113, 2997409, 3428423, 3737579, 4410547, 4775383, 5774273, 6209893, 6903563, 9001627, 9585343, 10507397, 11153833, 15596033
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MAPLE
|
select(isprime, [seq(n*(n+1)*(n+2)/6-2, n=1..10^3)]); # Robert Israel, Jun 27 2019
|
|
MATHEMATICA
|
s1=s2=0; lst={}; Do[s2+=s1+=n; If[PrimeQ[s2-2], AppendTo[lst, s2-2]], {n, 2*6!}]; lst
Select[Table[(n(n+1)(n+2))/6-2, {n, 500}], PrimeQ] (* Harvey P. Dale, Jul 29 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|