A061254 Odd composite numbers n such that primitive part of Fibonacci(n) (see A061446) is prime.

9, 15, 21, 33, 35, 39, 45, 51, 63, 65, 75, 93, 105, 111, 119, 121, 123, 135, 145, 185, 195, 201, 207, 209, 225, 231, 235, 245, 285, 287, 299, 301, 321, 335, 363, 399, 423, 453, 473, 693, 707, 771, 1047, 1113, 1215, 1365, 1371, 1387, 1533, 1537

Offset: 1

Author

David Broadhurst, Jun 10 2001

Keywords

• nonn

Links

• David Broadhurst, Table of n, a(n) for n=1..151 yielding primes or probable primes
• J. Brillhart, P. L. Montgomery and R. D. Silverman, Tables of Fibonacci and Lucas factorizations, Math. Comp. 50 (1988), 251-260, S1-S15. Math. Rev. 89h:11002.

Crossrefs

Cf. A061446, A061447, A061445, A061442, A061443.

Programs

Mathematica

A061446[n_] := Product[Fibonacci[d]^MoebiusMu[n/d], {d, Divisors[n]}];
Select[Range[1, 1999, 2], CompositeQ[#] && PrimeQ[A061446[#]]&] (* Jean-François Alcover, Jul 04 2019 *)

Extensions

Definition corrected by T. D. Noe, Dec 14 2006