A154304 Primes of the form (1+2+...+m)/210 = A000217(m)/210.
3, 17, 47, 419, 421
Offset: 1
Programs
-
Mathematica
lst={};s=0;Do[s+=n/210;If[Floor[s]==s,If[PrimeQ[s],AppendTo[lst,s]]],{n,0,6*9!}];lst
-
PARI
A154304(d=210)={select(x->denominator(x)==1 && isprime(x), vector(d*=2, m, m^2+m)/d)} \\ - M. F. Hasler, Jan 06 2013
Extensions
Edited by M. F. Hasler, Jan 06 2013
Comments