1,1
Primes which are some triangular number A000217 divided by 15.
lst={}; s=0; Do[s+=n/15; If[Floor[s]==s, If[PrimeQ[s], AppendTo[lst, s]]], {n, 0, 9!}]; lst
Select[(Accumulate[Range[200]])/15, PrimeQ] (* From Harvey P. Dale, Oct 30 2011 *)
Cf. A057570, A154293
Sequence in context: A143948 A018989 A073126 * A038900 A068485 A019352
Adjacent sequences: A154293 A154294 A154295 * A154297 A154298 A154299
nonn,fini,full
Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 06 2009