A135953 (Nonprime Fibonacci numbers with prime indices) that have exactly 2 prime factors.
4181, 1346269, 165580141, 53316291173, 956722026041, 2504730781961, 308061521170129, 806515533049393, 14472334024676221, 1779979416004714189, 573147844013817084101, 10284720757613717413913, 26925748508234281076009
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..42
Crossrefs
Programs
-
Mathematica
k = {}; Do[If[ !PrimeQ[Fibonacci[Prime[n]]], c = Length[FactorInteger[Fibonacci[Prime[n]]]]; If[c == 2, AppendTo[k, Fibonacci[Prime[n]]]]], {n, 1, 50}]; k Select[Fibonacci[Prime[Range[30]]],PrimeOmega[#]==2&] (* Harvey P. Dale, Feb 18 2012 *)
Comments