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 A201734 #18 Sep 08 2022 08:46:01 %S A201734 0,1,2,3,6,7,9,10,13,14,16,18,20,22,24,25,27,29,31,32,38,39,43,44,49, %T A201734 50,51,53,56,63,64,65,66,69,77,80,83,84,87,90,91,95,98,101,102,105, %U A201734 106,107,108,109,111,116,118,120,121,122,123,129,132,134,135,137 %N A201734 Numbers n such that 90*n + 47 is prime. %C A201734 A reverse reading of A142313; all entries of A142313 have digital root 2 and last digit 7. %H A201734 Vincenzo Librandi, <a href="/A201734/b201734.txt">Table of n, a(n) for n = 1..10000</a> %F A201734 a(n) = (A142313(n)-47)/90. %p A201734 for n from 0 to 240 do %p A201734 p := 90*n+47 ; %p A201734 if isprime(p) then %p A201734 printf("%d,",n) ; %p A201734 end if; %p A201734 end do: # _R. J. Mathar_, Dec 05 2011 %t A201734 Select[Range[0,400],PrimeQ[90 #+47]&] (* _Vincenzo Librandi_, Dec 11 2011 *) %o A201734 (Magma) [n: n in [0..200] | IsPrime(90*n+47)]; // _Vincenzo Librandi_, Dec 11 2011 %o A201734 (PARI) is(n)=isprime(90*n+47) \\ _Charles R Greathouse IV_, Feb 17 2017 %Y A201734 Cf. A181732, A198382, A195993, A196000, A196007. %K A201734 nonn,easy,less %O A201734 1,3 %A A201734 _J. W. Helkenberg_, Dec 04 2011