editing

approved

Original definition : "Primes of the form : 1/x+2/x+3/x+4/x+5/x+6/x+7/x+..., x=21090."

nonn,fini,full,easy,bref,changed

Primes of the form : 1/x+2/x+3/x+4/x+5/x+6/x+7/x+..., x=90.

Primes of the form (1+2+...+m)/90 = A000217(m)/90.

Original definition : Primes of the form 1/x+2/x+3/x+4/x+5/x+6/x+7/x+..., x=210.

The corresponding m-values are m=35,44,179,180. It is clear that for m>180, T(m)/90 = m(m+1)/180 cannot be a prime, since then each factor in the numerator is larger than the denominator. All of the sequences A154296, ..., A154304 could or should be grouped together in a single ("fuzzy"?) table. It would be more interesting to have the function f(n) which gives the *number* of primes of the form T(k)/n. - M. F. Hasler, Jan 06 2013

(PARI) d=90*2; for(m=1, 999, (m^2+m)%d==0&isprime((m^2+m)/d)&print1(m", ")) \\ print the m-values(!) - use A154304(90) to get A154303 as a list/vector. \\ - M. F. Hasler, Jan 06 2013

Edited by M. F. Hasler, Jan 06 2013

approved

editing

_Vladimir Joseph Stephan Orlovsky (4vladimir(AT)gmail.com), _, Jan 06 2009

reviewed

approved

proposed

reviewed

Next term will be larger then : 18289162080

Cf. A057570, A154293, A154296, A154297, A154298, A154299, A154300, A154301, A154302 - A154304.

nonn,fini,full

approved

proposed

Primes of the form : 1/x+2/x+3/x+4/x+5/x+6/x+7/x+..., x=90.

7, 11, 179, 181

1,1

Next term will be larger then : 18289162080

lst={}; s=0; Do[s+=n/90; If[Floor[s]==s, If[PrimeQ[s], AppendTo[lst, s]]], {n, 0, 5*9!}]; lst

Cf. A057570, A154293, A154296, A154297, A154298, A154299, A154300, A154301, A154302

nonn,new

Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 06 2009

approved