Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #22 Jul 22 2023 14:13:57
%S 3,7,29,31
%N Primes of the form (1+2+3+...+m)/15 = A000217(m)/15, for some m.
%C Original definition: Primes of the form 1/x+2/x+3/x+4/x+5/x+6/x+7/x+..., x=15.
%C The corresponding m-values are m=9, 14, 29, 30. It is clear that for m > 30, T(m)/15 = m*(m+1)/30 cannot be a prime. - _M. F. Hasler_, Dec 31 2012
%C 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
%C Also primes p such that 120*p+1 is a perfect square. - _Lamine Ngom_, Jul 22 2023
%t lst={};s=0;Do[s+=n/15;If[Floor[s]==s,If[PrimeQ[s],AppendTo[lst,s]]],{n,0,9!}];lst
%t Select[(Accumulate[Range[200]])/15,PrimeQ] (* _Harvey P. Dale_, Oct 30 2011 *)
%o (PARI) select(x->denominator(x)==1 & isprime(x), vector(30,m,m^2+m)/30) \\ _M. F. Hasler_, Dec 31 2012
%Y Cf. A057570, A154293, A154297, A154298, A154299, A154300, A154301, A154302, A154303, A154304.
%K nonn,fini,full,easy
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jan 06 2009
%E Edited by _M. F. Hasler_, Dec 31 2012