|
|
A173420
|
|
Triangular numbers which are sums of 4 consecutive primes.
|
|
3
|
|
|
36, 120, 780, 1596, 1830, 10440, 12090, 20706, 22578, 23436, 34716, 75466, 101926, 107880, 115440, 154290, 191890, 207690, 231540, 261726, 271216, 310866, 313236, 319600, 384126, 408156, 512578, 558096, 653796, 768180, 824970, 936396, 1094460
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Table[Prime[n]+Prime[n+1]+Prime[n+2]+Prime[n+3], {n, 2*8!}], IntegerQ[Sqrt[1+8# ]]&]
Select[Total/@Partition[Prime[Range[50000]], 4, 1], OddQ[Sqrt[1+8#]]&] (* Harvey P. Dale, May 29 2021 *)
|
|
PROG
|
(Magma) [ t: n in [1..25000] | IsSquare(8*t+1) where t is &+[NthPrime(n+s): s in [0..3]] ]; // Bruno Berselli, Apr 28 2011
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|