|
|
A091815
|
|
Numbers n such that numerator of sum(i=1,n,(i-1)/i) is prime.
|
|
0
|
|
|
3, 4, 5, 6, 7, 9, 11, 13, 15, 16, 17, 22, 61, 69, 73, 97, 120, 125, 138, 141, 158, 180, 183, 220, 224, 317, 370, 457, 517, 546, 573, 648, 678, 692, 699, 804, 848, 1182, 1213, 1225, 1300, 1866, 2093, 2344, 2411, 2837
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[3000], PrimeQ[Numerator[Sum[(i-1)/i, {i, #}]]]&] (* Harvey P. Dale, Jul 13 2011 *)
Position[Accumulate[Table[(k-1)/k, {k, 3000}]], _?(PrimeQ[Numerator[#]]&)]// Flatten (* Harvey P. Dale, Jun 06 2021 *)
|
|
PROG
|
(PARI) ss(n)=sum(i=1, n, (i-1)/i); for (i=1, 1200, if(isprime(numerator(ss(i))), print1(i, ".")))
|
|
CROSSREFS
|
|
|
KEYWORD
|
hard,nonn
|
|
AUTHOR
|
Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Mar 07 2004
|
|
EXTENSIONS
|
More terms from Harvey P. Dale, Jul 13 2011
|
|
STATUS
|
approved
|
|
|
|