A167023 Fibonacci numbers where both neighbors are semiprimes.
5, 34, 144, 46368
Offset: 1
Keywords
Examples
5 is in the sequence because 4=2*2 and 6=2*3. 46368 is in the sequence because 46367 = 199 * 233 and 46369 = 89 * 521.
Programs
-
Mathematica
u[n_]:=Plus@@Last/@FactorInteger[n]==2; lst={};Do[f=Fibonacci[n];If[u[f-1]&&u[f+1], Print[f];AppendTo[lst,f]],{n,3*5!}];lst Select[Fibonacci[Range[200]],Union[PrimeOmega[#+{1,-1}]]=={2}&] (* Harvey P. Dale, Mar 16 2015 *)
-
PARI
for(n=5,99, f=fibonacci(n); if(bigomega(f-1)==2 && bigomega(f+1)==2, print1(f", "))) \\ Charles R Greathouse IV, Mar 21 2016
Formula
Extensions
Edited by R. J. Mathar, Nov 05 2009 and Charles R Greathouse IV, Nov 09 2009
Comments