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 A154428 #24 Sep 08 2022 08:45:40
%S A154428 61,1301,1861,2521,5101,7321,8581,9941,14621,16381,20201,24421,26681,
%T A154428 34061,36721,51521,68821,76441,97241,101701,106261,110921,135721,
%U A154428 163021,168781,199081,205441,218461,252761,282001,304981,312841,337021,353641
%N A154428 Primes of the form 50n^2 + 10n + 1.
%C A154428 Subsequence of A027862 associated with the values of A027861 that are multiples of 5. [_R. J. Mathar_, Jan 12 2009]
%H A154428 Vincenzo Librandi, <a href="/A154428/b154428.txt">Table of n, a(n) for n = 1..1000</a>
%p A154428 select(isprime,[50*n^2+10*n+1$n=1..100])[]; # _Muniru A Asiru_, Apr 25 2019
%t A154428 Select[Table[50n^2+10n+1,{n,0,200}],PrimeQ] (* _Vincenzo Librandi_, Jul 23 2012 *)
%o A154428 (Magma) [a: n in [0..100] | IsPrime(a) where a is 50*n^2 + 10*n + 1]; // _Vincenzo Librandi_, Jul 23 2012
%o A154428 (PARI) for (n=0, 100, if (isprime (k=50*n^2+10*n+1), print1 (k, ", "))); \\ _Vincenzo Librandi_, Jul 23 2012
%o A154428 (GAP) Filtered(List([1..100],n->50*n^2+10*n+1),IsPrime); # _Muniru A Asiru_, Apr 25 2019
%Y A154428 Cf. A017281, A048161.
%K A154428 nonn,easy
%O A154428 1,1
%A A154428 _Vincenzo Librandi_, Jan 09 2009
%E A154428 Replaced 13721 by 135721 - _R. J. Mathar_, Jan 12 2009