|
%I #27 Sep 08 2022 08:45:59
%S 0,1,3,4,5,6,8,10,12,14,17,18,19,22,25,26,27,28,29,32,35,38,39,40,41,
%T 43,46,48,49,55,56,57,59,60,61,67,69,70,71,73,77,78,80,82,83,85,87,92,
%U 96,101,104,116,117,118,120,124,125,127,131,133,134,136,138
%N Numbers n such that 90n + 37 is prime.
%H Ivan Neretin, <a href="/A198382/b198382.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = (A142331(n)-37)/90.
%t Select[Range[0, 150], PrimeQ[90 # + 37] &] (* _Vincenzo Librandi_, Apr 07 2015 *)
%o (PARI) isok(n) = isprime(90*n+37) \\ _Michel Marcus_, Jul 24 2013
%o (Magma) [n: n in [0..150] | IsPrime(90*n+37)]; // _Vincenzo Librandi_, Apr 07 2015
%Y Cf. A181732.
%K nonn,easy
%O 1,3
%A _J. W. Helkenberg_, Oct 24 2011
|
