The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A137494 Fibonacci numbers where no digit is a prime. 0
 0, 1, 1, 8, 89, 144, 610, 4181, 10946, 196418 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,4 COMMENTS No more terms up to Fibonacci[10000). [From Harvey P. Dale, Oct 10 2011] LINKS EXAMPLE 196418 is 27th Fibonacci number in which every digit is not a prime. MAPLE 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); MATHEMATICA Select[Fibonacci[Range[0, 10000]], Union[PrimeQ[IntegerDigits[#]]] =={False}&] (* Harvey P. Dale, Oct 10 2011 *) CROSSREFS Cf. A000045, A136340. Sequence in context: A137144 A107677 A084005 * A068498 A061000 A240457 Adjacent sequences:  A137491 A137492 A137493 * A137495 A137496 A137497 KEYWORD nonn,base AUTHOR Jani Melik, Apr 22 2008 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified January 23 19:36 EST 2020. Contains 331175 sequences. (Running on oeis4.)