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 A154276 #17 Oct 05 2024 14:35:26
%S A154276 17,197,30977,52901,80657,215297,287297,414737,462401,512657,739601,
%T A154276 902501,972197,1008017,1196837,1401857,1623077,2496401,2611457,
%U A154276 3422501,3763601,4343057,4494401,4726277,4884101,5456897,5541317,6330257
%N A154276 Primes of the form 81*k^2 - 72*k + 17.
%C A154276 Primes in A154277.
%H A154276 Vincenzo Librandi, <a href="/A154276/b154276.txt">Table of n, a(n) for n = 1..1000</a>
%p A154276 a := proc (n) if isprime(81*n^2-72*n+17) = true then 81*n^2-72*n+17 else end if end proc: seq(a(n), n = 0 .. 300); # _Emeric Deutsch_, Jan 20 2009
%t A154276 lst={};Do[If[PrimeQ[p=81*n^2-72*n+17],AppendTo[lst,p]],{n,0,7!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jan 11 2009 *)
%t A154276 Select[Table[81*n^2-72*n+17,{n,0,2000}],PrimeQ] (* _Vincenzo Librandi_, Jul 16 2012 *)
%o A154276 (Magma) [a: n in [0..350] | IsPrime(a) where a is 81*n^2-72*n+17]; // _Vincenzo Librandi_, Jul 16 2012
%Y A154276 Cf. A154277.
%K A154276 nonn,easy
%O A154276 1,1
%A A154276 _Vincenzo Librandi_, Jan 06 2009
%E A154276 Extended by _Emeric Deutsch_, Jan 20 2009