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 A166457 #9 Jun 13 2017 10:21:03 %S A166457 1,4,6,7,12,13,16,18,19,28,30,33,37,40,42,48,51,55,57,58,61,63,67,70, %T A166457 79,81,85,90,96,99,103,105,106,117,118,121,123,124,126,130,139,144, %U A166457 151,154,156,159,160,163,169,174,183,184,187,190,193,195,198,201,202,210,211 %N A166457 Numbers n such that n*100+1 is prime. %H A166457 G. C. Greubel, <a href="/A166457/b166457.txt">Table of n, a(n) for n = 1..10000</a> %e A166457 a(1)=1 (1*100+1=prime); a(2)=4 (4*100+1=prime). %p A166457 a := proc (n) if isprime(100*n+1) then n else end if end proc: seq(a(n), n = 1 .. 250); # _Emeric Deutsch_, Nov 01 2009 %t A166457 Select[If[PrimeQ[100*# + 1], #] & /@ Range[2*8!], IntegerQ] (* _G. C. Greubel_, May 15 2016 *) %o A166457 (PARI) is(n)=isprime(n*100+1) \\ _Charles R Greathouse IV_, Jun 13 2017 %Y A166457 Cf. A000040, A086304. %K A166457 nonn,easy %O A166457 1,2 %A A166457 _Juri-Stepan Gerasimov_, Oct 14 2009 %E A166457 Extended by _Emeric Deutsch_, Nov 01 2009