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 A115244 #11 Mar 03 2016 22:53:38 %S A115244 402,299,206,118,24,78,141,191,224,257,272,279,276,264,242,211,167, %T A115244 112,38,72,162,256,350,448,558,670,786,913,1042,1181,1319,1462,1620, %U A115244 1777,1942,2119,2289,2473,2664,2851,3051,3250,3458,3684 %N A115244 Indices of primes generated by Fung and Ruby's prime generating polynomial A050268. %C A115244 PrimePi[Negative Prime]=0 :Absolute value is necessary because of this. %H A115244 G. C. Greubel, <a href="/A115244/b115244.txt">Table of n, a(n) for n = 0..7419</a> %F A115244 a(n) = PrimePi(Abs(A050268(n))). %p A115244 map(numtheory:-pi,select(isprime, [seq(abs(36*n^2 - 810* n + 2753), n=0..300)])); # _Robert Israel_, Mar 03 2016 %t A115244 Table[PrimePi[Abs[36*n^2 - 810*n + 2753]], {n, 0, 43}] %t A115244 a := Select[Table[36 n^2 - 810 n + 2753, {n, 0, 200}], PrimeQ]; %t A115244 PrimePi[Abs[a]] (* _G. C. Greubel_, Feb 08 2016 *) %Y A115244 Cf. A005846, A050268, A117081. %K A115244 nonn %O A115244 0,1 %A A115244 _Roger L. Bagula_, May 11 2006 %E A115244 Name edited by _Robert Israel_, Mar 03 2016