login
A217663
a(n) = A217662(n+2)/A217662(n) - 1, n > 0.
2
1, 3, 1, 5, 3, 7, 1, 3, 5, 11, 1, 13, 7, 5, 1, 17, 3, 19, 5, 1, 11, 23, 1, 5, 13, 1, 1, 29, 5, 31, 1, 11, 17, 1, 1, 37, 19, 13, 1, 41, 1, 43, 11, 1, 23, 47, 1, 1, 5, 17, 13, 53, 1, 1, 1, 1, 29, 59, 1, 61, 31, 1, 1, 13, 11, 67, 17, 23, 1, 71, 1, 73, 37, 1, 1
OFFSET
1,2
COMMENTS
a(prime(n)-1) = prime(n) for n>1, so this sequence includes all odd primes. - Jon Perry, Oct 10 2012, edited & corrected by M. F. Hasler, Oct 11 2012
MATHEMATICA
RecurrenceTable[{a[n]==a[n-2]+LCM[n-1, a[n-2]], a[1]==2, a[2]==2}, a{n, 3, 51}] /RecurrenceTable[{a[n]==a[n-2]+LCM[n-1, a[n-2]], a[1]==2, a[2]==2}, a, {n, 1, 49}]-1
t = {2, 2}; Do[AppendTo[t, t[[-2]] + LCM[n - 1, t[[-2]]]], {n, 3, 100}]; Drop[t, 2]/Drop[t, -2] - 1 (* T. D. Noe, Oct 10 2012 *)
CROSSREFS
Sequence in context: A082725 A308655 A356365 * A078701 A299766 A161398
KEYWORD
nonn
AUTHOR
Pedja Terzic, Oct 10 2012
STATUS
approved