# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a064526 Showing 1-1 of 1 %I A064526 #30 Mar 12 2021 22:24:42 %S A064526 0,1,2,3,5,13,49,529,21121,10369921,213952189441,2214253468601687041, %T A064526 473721461635593679669210030081, %U A064526 1048939288228833101089604217183056027094304481281 %N A064526 Define a pair of sequences by p(0) = 0, q(0) = p(1) = q(1) = 1, q(n+1) = p(n)*q(n-1), p(n+1) = q(n+1) + q(n) for n > 0; then a(n) = p(n) and A064183(n) = q(n). %C A064526 Every nonzero term is relatively prime to all others (which proves that there are infinitely many primes). See A236394 for the primes that appear. %H A064526 R. Mestrovic, Euclid's theorem on the infinitude of primes: a historical survey of its proofs (300 BC--2012) and another new proof, arXiv preprint arXiv:1202.3670 [math.HO], 2012. - _N. J. A. Sloane_, Jun 13 2012 %H A064526 Michael Somos and R. Haas, A linked pair of sequences implies the primes are infinite, Amer. Math. Monthly, 110(6) (2003), 539-540. %F A064526 a(n) = (a(n-1)^2 + a(n-2)^2 - a(n-1) * a(n-2) * (1 + a(n-2))) / (1 - a(n-2)) for n >= 2. %F A064526 a(n) ~ c^(phi^n), where c = 1.2364241784241086061606568429916822975882631646194967549068405592472125928485... and phi = A001622 = (1+sqrt(5))/2 is the golden ratio. - _Vaclav Kotesovec_, May 21 2015 %t A064526 Flatten[{0,1, RecurrenceTable[{a[n]==(a[n-1]^2 + a[n-2]^2 - a[n-1]*a[n-2] * (1+a[n-2]))/(1-a[n-2]), a[2]==2, a[3]==3},a,{n,2,15}]}] (* _Vaclav Kotesovec_, May 21 2015 *) %o A064526 (PARI) {a(n) = local(v); if( n<3, max(0, n), v = [1,1]; for( k=3, n, v = [v[2], v[1] * (v[1] + v[2])]); v[1] + v[2])} %o A064526 (PARI) {a(n) = if( n<4, max(0, n), (a(n-1)^2 + a(n-2)^2 - a(n-1) * a(n-2) * (1 + a(n-2))) / (1 - a(n-2)))} %Y A064526 Cf. A001685, A003686, A064183, A064847, A070231, A070233, A070234, A094303. %Y A064526 See A236394 for the primes that are produced. %K A064526 nonn,easy %O A064526 0,3 %A A064526 _Michael Somos_, Oct 07 2001 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE