OFFSET
1,3
MATHEMATICA
Rest[Select[Fibonacci[Range[100]], !PrimeQ[Total[IntegerDigits[#]]]&]]
PROG
(Magma) [Fibonacci(n): n in [2..80] | not IsPrime(&+Intseq(Fibonacci(n)))];
(GAP) S:=List(List(List([2..60], Fibonacci), ListOfDigits), Sum);;
a:=[];; for i in [1..Length(S)] do if not IsPrime(S[i]) then Add(a, Fibonacci(i+1)); fi; od; a:=Concatenation([0], a); # Muniru A Asiru, Jul 12 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vincenzo Librandi, Jul 11 2018
STATUS
approved