OFFSET
1,2
COMMENTS
The Erdos-Straus conjecture is equivalent to the conjecture that a(n) > 0 for all n.
LINKS
Jean-François Alcover, Table of n, a(n) for n = 1..1000
Christian Elsholtz, Terence Tao, Counting the number of solutions to the Erdos-Straus equation on unit fractions, Aug 2, 2015, arXiv:1107.1010 [math.NT], 2011-2015.
Elsholtz, C., Tao, T. Counting the number of solutions to the Erdos-Straus equation on unit fractions. Journal of the Australian Mathematical Society, 94(1), 50-105, 2013.
doi:10.1017/S1446788712000468
FORMULA
a(n) = A192787(prime(n)). - Michel Marcus, Aug 20 2014
EXAMPLE
a(1) = 1 because 4/prime(1) = 1/1 + 1/2 + 1/2.
MAPLE
a:= n-> A192787(ithprime(n)):
seq(a(n), n=1..70);
MATHEMATICA
a[n_] := a[n] = Module[{a, b, c, r}, r = Reduce[1 <= a <= b <= c && 4/Prime[n] == 1/a + 1/b + 1/c, {a, b, c}, Integers]; Which[Head[r] === Or, Length[r], Head[r] === And, 1, r === False, 0, True, Print["error: ", r]]];
Table[an = a[n]; Print["a(", n, ") = ", an]; an, {n, 1, 84}] (* Jean-François Alcover, Nov 22 2017 *)
PROG
(PARI) a(n)=my(t=4/prime(n), t1, s, c); for(a=1\t+1, 3\t, t1=t-1/a; for(b=1\t1+1, 2\t1, c=1/(t1-1/b); if(denominator(c)==1&&c>=b, s++))); s
CROSSREFS
KEYWORD
nonn
AUTHOR
Charles R Greathouse IV, Jul 10 2011
STATUS
approved