OFFSET
1,1
FORMULA
MATHEMATICA
lst={}; Do[If[Mod[n, 60]==1, If[PrimeQ[n], AppendTo[lst, n]]], {n, 8!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 25 2009 *)
Select[Range[1, 6000, 60], PrimeQ] (* Harvey P. Dale, Aug 29 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Dec 01 2003
EXTENSIONS
More terms from Ray Chandler, Dec 02 2003
STATUS
approved