1,1
lst={}; s=0; Do[s+=n/15; If[Floor[s]==s, If[PrimeQ[s], AppendTo[lst, s]]], {n, 0, 9!}]; lst
Cf. A057570, A154293
Sequence in context: A143948 A018989 A073126 this_sequence A038900 A068485 A019352
Adjacent sequences: A154293 A154294 A154295 this_sequence A154297 A154298 A154299
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 06 2009
Search completed in 0.002 seconds