A236268 Smallest k such that prime and nonprime divisors alternate through exactly the first n pairs of divisors of Fibonacci(k), as {1, a prime, a nonprime, a prime, ...}.

3, 25, 325, 275

Offset

1,1

Comments

The first 2n divisors of f = Fibonacci(a(n)) are of the form {1, p(0), c(1), p(1), c(2), p(2), ..., c(n), p(n)} where c(i) are composite divisors, p(i) are prime divisors, and f = p(0)^2*p(1)*p(2)*...*p(q).

Links

Table of n, a(n) for n=1..4.

Example

In the following examples, the { } contains the sequence of n couples (nonprime, prime divisors).
a(1) = 3 because F(3) = 2 => {1, 2};
a(2) = 25 because F(25) = 75025 = 5^2 * 3001 => {1, 5, 25, 3001};
a(3) = 325 because F(325) = 5^2 * 233 * 1301 * 3001 * 4235401 * 605416501 * 880262501 * 14736206161 * 49284706967787569058301 => {1, 5, 25, 233, 1165, 1301};
a(4) = 275 because F(275) = 5^2 * 89 * 661 * 3001 * 474541 * 7239101 * 15806979101 * 5527278404454199535821801 => {1, 5, 25, 89, 445, 661, 2225, 3001}.

Maple

with(combinat, fibonacci):with(numtheory):for n from 2 by 2 to 30 do:ii:=0:for kk from 2 to 1000 while(ii=0) do:k:=fibonacci(kk): x:=divisors(k):n1:=nops(x):it:=0:for i from 1 by 2 to n do:if n1>=n and type(x[i], prime)=false then it:=it+1:else fi:od:for j from 2 by 2 to n do:if n1>=n and type(x[j], prime)=true then it:=it+1:else fi:od:if it=n then ii:=1: printf ( "%d %d \n", n/2, k):else fi:od:od:

Crossrefs

Cf. A000045, A227337.

Sequence in context: A123989 A001907 A212722 * A181085 A143635 A246756

Adjacent sequences: A236265 A236266 A236267 * A236269 A236270 A236271

Keyword

nonn,hard,more

Author

Michel Lagneau, Jan 21 2014

Extensions

Name reworded by Jon E. Schoenfield, Sep 17 2017

Status

approved