login
A316527
Fibonacci numbers whose sum of digits is not a prime.
0
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,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
Complement of A065398 within A000045.
Cf. A178837.
Sequence in context: A043901 A359553 A081966 * A304546 A377561 A166670
KEYWORD
nonn,base
AUTHOR
Vincenzo Librandi, Jul 11 2018
STATUS
approved