This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A173423 #20 Mar 06 2023 15:44:06
%S A173423 630,990,2926,4950,5886,12720,24090,44850,60726,81810,107416,128778,
%T A173423 152076,168490,177906,202566,217470,258840,277140,301476,314028,
%U A173423 408156,499500,613278,695610,875826,903840,940506,1205128,1332528,1405326
%N A173423 Triangular numbers which are sums of 6 consecutive primes.
%H A173423 Chai Wah Wu, <a href="/A173423/b173423.txt">Table of n, a(n) for n = 1..10000</a> (n = 1..528 from Robert Israel)
%p A173423 Primes:= select(isprime, [2,seq(i,i=3..10^7,2)]):
%p A173423 P6:= Primes[1..-6]+Primes[2..-5]+Primes[3..-4]+Primes[4..-3]+Primes[5..-2]+Primes[6..-1]:
%p A173423 select(t -> issqr(8*t+1),P6): # _Robert Israel_, Sep 26 2016
%t A173423 f[n_]:=Prime[n]+Prime[n+1]+Prime[n+2]+Prime[n+3]+Prime[n+4]+Prime[n+5]; Select[Table[f[n],{n,9!}],IntegerQ[Sqrt[1+8# ]]&]
%t A173423 Select[Total/@Partition[Prime[Range[25000]],6,1],OddQ[Sqrt[8#+1]]&] (* _Harvey P. Dale_, Mar 06 2023 *)
%o A173423 (Magma) [ t: n in [1..22000] | IsSquare(8*t+1) where t is &+[NthPrime(n+s): s in [0..5]] ]; // _Bruno Berselli_, Apr 28 2011
%Y A173423 Cf. A000040, A000217, A111163, A167788, A173420, A173421.
%K A173423 nonn
%O A173423 1,1
%A A173423 _Vladimir Joseph Stephan Orlovsky_, Feb 18 2010