login
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
OFFSET
1,1
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