A316527 Fibonacci numbers whose sum of digits is not a prime.

0, 1, 8, 13, 55, 144, 233, 987, 1597, 4181, 6765, 10946, 28657, 46368, 317811, 2178309, 3524578, 9227465, 14930352, 24157817, 39088169, 102334155, 267914296, 701408733, 1836311903, 4807526976, 7778742049, 12586269025, 32951280099, 139583862445, 225851433717

Offset: 1

Author

Vincenzo Librandi, Jul 11 2018

Keywords

• nonn
• base

Crossrefs

Complement of A065398 within A000045.

Cf. A178837.

Programs

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

Magma

[Fibonacci(n): n in [2..80] | not IsPrime(&+Intseq(Fibonacci(n)))];

Mathematica

Rest[Select[Fibonacci[Range[100]], !PrimeQ[Total[IntegerDigits[#]]]&]]