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 A285790 #17 Jun 16 2022 17:30:34 %S A285790 2,7,29,67,191,277,379,631,947,1129,1327,2017,2557,2851,4561,4951, %T A285790 5779,6217,8647,9181,12721,13367,14029,15401,16111,17579,20707,21529, %U A285790 22367,24091,24977,31627,36857,37951,42487,43661,44851,47279,53629,58997,64621,66067 %N A285790 Primes equal to a hexagonal number plus 1. %C A285790 Apart from the leading 2 the same as A176616. - _R. J. Mathar_, Apr 27 2017 %C A285790 Primes in A130883. - _Omar E. Pol_, Apr 27 2017 %H A285790 Colin Barker, <a href="/A285790/b285790.txt">Table of n, a(n) for n = 1..1000</a> %t A285790 Select[PolygonalNumber[6,Range[200]]+1,PrimeQ] (* _Harvey P. Dale_, Jun 16 2022 *) %o A285790 (PARI) pg(m, n) = (n^2*(m-2)-n*(m-4))/2 \\ n-th m-gonal number %o A285790 maxk=300; L=List(); for(k=1, maxk, if(isprime(p=pg(6, k) + 1), listput(L, p))); Vec(L) %Y A285790 Cf. A000040, A000384, A002496, A055469, A285789, A285791, A176616, A285792. %K A285790 nonn %O A285790 1,1 %A A285790 _Colin Barker_, Apr 26 2017