login

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”).

A176514
Period 6: repeat [3, 1, 1, 3, 2, 1].
1
3, 1, 1, 3, 2, 1, 3, 1, 1, 3, 2, 1, 3, 1, 1, 3, 2, 1, 3, 1, 1, 3, 2, 1, 3, 1, 1, 3, 2, 1, 3, 1, 1, 3, 2, 1, 3, 1, 1, 3, 2, 1, 3, 1, 1, 3, 2, 1, 3, 1, 1, 3, 2, 1, 3, 1, 1, 3, 2, 1, 3, 1, 1, 3, 2, 1, 3, 1, 1, 3, 2, 1, 3, 1, 1, 3, 2, 1, 3, 1, 1, 3, 2, 1, 3, 1, 1, 3, 2, 1, 3, 1, 1, 3, 2, 1
OFFSET
1,1
COMMENTS
3/n expressed as Egyptian fractions with 3 unit fractions: 3/n = 1/x + 1/y + 1/z, all integers, n > 0 and x < y < z.
I have introduced a variable t, an integer that varies with n in accordance with a periodic sequence of 6 terms: [3, 1, 1, 3, 2, 1] starting at n = 0, although 0 is outside the defined interval.
x, the denominator of the first unit fraction, varies with n in accordance with the sequence:
[(1), 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5,..]; x_0 = x_1 = x_2 = 1. Then x_3 = x_4 = x_5 = 2 and so on, increasing the value by 1 for every 3 terms.
y is calculated by:
y = (nx + t)/2 for n = 1, 4, 7, 10,.. etc.
y = (nx + t)/1 = nx + t for n = 2, 5, 8, 11,.. etc.
y = (nx + t)/t for n = 3, 6, 9, 12,.. etc.
z is calculated by: z = nxy/t for all n > 0
This algorithm produces the "first" Egyptian fraction of each type that has 3 unit fractions.
By "first" I indicate the Egyptian fraction that otherwise would be arrived at by employing Fibonacci's greedy algorithm.
FORMULA
G.f.: ( 3+x+x^2+3*x^3+2*x^4+x^5 ) / ( (1-x)*(1+x)*(1+x+x^2)*(x^2-x+1) ). - R. J. Mathar, Oct 08 2011
a(n) = 11/6 -cos(Pi*n/3)/6 -sqrt(3)*sin(Pi*n/3)/6 +7*cos(2*Pi*n/3)/6 +sqrt(3)*sin(2*Pi*n/3)/6 +(-1)^n/6. - R. J. Mathar, Oct 08 2011
a(n) = a(n-6) for n>6. - Wesley Ivan Hurt, Jun 18 2016
MAPLE
A176514:=n->[3, 1, 1, 3, 2, 1][(n mod 6)+1]: seq(A176514(n), n=0..100); # Wesley Ivan Hurt, Jun 18 2016
MATHEMATICA
LinearRecurrence[{0, 0, 0, 0, 0, 1}, {3, 1, 1, 3, 2, 1}, 96] (* Ray Chandler, Aug 26 2015 *)
PadRight[{}, 100, {3, 1, 1, 3, 2, 1}] (* Vincenzo Librandi, Jun 19 2016 *)
PROG
(Magma) &cat[[3, 1, 1, 3, 2, 1]^^20]; // Wesley Ivan Hurt, Jun 18 2016
(PARI) a(n)=[1, 3, 1, 1, 3, 2][n%6+1] \\ Charles R Greathouse IV, Jul 17 2016
CROSSREFS
Sequence in context: A106749 A225224 A140216 * A238559 A077196 A023142
KEYWORD
nonn,easy
AUTHOR
Egil Edborg (egil.edborg(AT)ebnett.no), Apr 19 2010
STATUS
approved