|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|