%I #14 Sep 08 2022 08:45:12

%S 1,3,4,7,9,10,11,17,20,22,23,27,29,30,31,36,37,38,39,42,50,51,52,53,

%T 55,56,59,67,70,71,74,76,77,80,81,85,88,92,93,94,95,97,98,102,105,106,

%U 107,108,111,113,114,116,122,126,127,128,129,135,136,137,141,142,143,144

%N Numbers n such that 60*n+1 is prime.

%H Vincenzo Librandi, <a href="/A088958/b088958.txt">Table of n, a(n) for n = 1..5700</a>

%F a(n) = (A088955(n)-1)/60 = (A000040(A090605(n))-1)/60.

%t Select[Range[200], PrimeQ[60 # + 1] &] (* _Vincenzo Librandi_, May 23 2017 *)

%o (PARI) isok(n) = isprime(60*n+1) \\ _Michel Marcus_, Jul 27 2013

%o (Magma) [n: n in [0..200] | IsPrime(60*n+1)]; // _Vincenzo Librandi_, May 23 2017

%Y Cf. A088955, A090605.

%K nonn

%O 1,2

%A _Lekraj Beedassy_, Dec 01 2003

%E More terms from _Ray Chandler_, Dec 02 2003