OFFSET
1,1
COMMENTS
For every n > 1, A105602(a(n)) > 1.
LINKS
Arkadiusz Wesolowski, Table of n, a(n) for n = 1..350
C. K. Caldwell, Top Twenty page, Fibonacci Primitive Part
PROG
(Magma) lst:=[]; for n in [4..180] do if not IsPrime(n) then d:=Divisors(n); p:=Truncate(&*[Fibonacci(d[i])^MoebiusMu(Truncate(n/d[i])): i in [1..#d]]); if IsPrime(p) then Append(~lst, n); end if; end if; end for; lst;
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Jun 29 2016
STATUS
approved