login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Fibonacci numbers where no digit is a prime.
0

%I #10 Sep 26 2024 04:09:10

%S 0,1,1,8,89,144,610,4181,10946,196418

%N Fibonacci numbers where no digit is a prime.

%C No more terms up to Fibonacci(10000). - _Harvey P. Dale_, Oct 10 2011

%e 196418 is 27th Fibonacci number in which every digit is not a prime.

%p ap := proc(n) local i, j, st, st_mn, ans, stevec; ans := [ ]: for i from 0 to n do st := combinat[fibonacci](i): st_mn := convert(convert(st, base, 10), set): stevec := 0: for j from 1 to nops(st_mn) do if (member(op(j,st_mn), {0, 1, 4, 6, 8, 9}) = true) then stevec := stevec + 1: fi od; if (stevec = nops(st_mn)) then ans:=[ op(ans), st ]: fi od; RETURN(ans): end: ap(100000);

%t Select[Fibonacci[Range[0,10000]],Union[PrimeQ[IntegerDigits[#]]] =={False}&] (* _Harvey P. Dale_, Oct 10 2011 *)

%Y Cf. A000045, A136340.

%K nonn,base

%O 1,4

%A _Jani Melik_, Apr 22 2008