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 A082251 #17 Jan 16 2015 03:32:16 %S A082251 127,401,439,479,593,881,929,977,1163,1213,1321,1367,1459,1511,1601, %T A082251 1747,1801,1951,1999,2053,2111,2393,2713,3299,3457,3517,3571,3739, %U A082251 3793,4091,4253,4621,4691,4969,5413,5521,5827,5987,6173,6379,6947,7151,7741 %N A082251 Primes that are the sum of 9 consecutive primes. %H A082251 Syed Iddi Hasan, <a href="/A082251/b082251.txt">Table of n, a(n) for n = 1..10000</a> %t A082251 Clear[Sum9Primes];Sum9Primes[a_]:=Module[{p}, p=Prime[a]+Prime[a+1] +Prime[a+2]+Prime[a+3]+Prime[a+4]+Prime[a+5] +Prime[a+6] +Prime[a+7]+Prime[a+8]]; lst={};Do[If[PrimeQ[p=Sum9Primes[n]],AppendTo[lst,p]],{n,6!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Apr 06 2009 *) %o A082251 (PARI) \\ primes in the sum of m odd number of consecutive primes. m=9 %o A082251 psumprm(m,n) = { sr=0; s=0; for(j=1,m, s+=prime(j); ); for(x=1,n, s = s - prime(x)+ prime(x+m); if(isprime(s),sr+=1.0/s; print1(s" ")); ); print(); print(sr) } %K A082251 easy,nonn %O A082251 1,1 %A A082251 _Cino Hilliard_, May 09 2003