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 A285792 #11 Oct 22 2017 17:55:58 %S A285792 2,41,97,281,409,937,1409,2297,4721,5209,6257,8009,8641,12161,14561, %T A285792 18097,21001,23057,24121,26321,27457,37409,42961,50441,52009,55217, %U A285792 56857,60209,70841,76481,90481,139537,147409,152777,161009,169457,172321,227977,238009 %N A285792 Primes equal to an octagonal number plus 1. %C A285792 Primes in A056105. - _Omar E. Pol_, Apr 26 2017 %H A285792 Colin Barker, <a href="/A285792/b285792.txt">Table of n, a(n) for n = 1..1000</a> %t A285792 Select[PolygonalNumber[8,Range[300]]+1,PrimeQ] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 22 2017 *) %o A285792 (PARI) pg(m, n) = (n^2*(m-2)-n*(m-4))/2 \\ n-th m-gonal number %o A285792 maxk=300; L=List(); for(k=1, maxk, if(isprime(p=pg(8, k) + 1), listput(L, p))); Vec(L) %Y A285792 Cf. A000040, A000567, A002496, A055469, A285789, A285790, A285791. %K A285792 nonn %O A285792 1,1 %A A285792 _Colin Barker_, Apr 26 2017