1,4

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

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);

Cf. A000045, A136340.

Sequence in context: A137144 A107677 A084005 this_sequence A068498 A061000 A072352

Adjacent sequences: A137491 A137492 A137493 this_sequence A137495 A137496 A137497

nonn,base

Jani Melik (jani.melik(AT)gmail.com), Apr 22 2008