|
| |
|
|
A065398
|
|
Fibonacci numbers whose digits sum to a prime.
|
|
5
|
|
|
|
2, 3, 5, 21, 34, 89, 377, 610, 2584, 17711, 75025, 121393, 196418, 514229, 832040, 1346269, 5702887, 63245986, 165580141, 433494437, 1134903170, 2971215073, 20365011074, 53316291173, 86267571272, 591286729879, 2504730781961
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Harry J. Smith, Table of n, a(n) for n = 1..100
|
|
|
MATHEMATICA
|
Select[Fibonacci[Range[100]], PrimeQ[Total[IntegerDigits[#]]]&] (* Harvey P. Dale, Mar 24 2017 *)
|
|
|
PROG
|
(PARI) SumD(x)= { local(s=0); while (x>9, s+=x-10*(x\10); x\=10); return(s + x) } { n=0; for (m=1, 10^9, f=fibonacci(m); if (isprime(SumD(f)), write("b065398.txt", n++, " ", f); if (n==100, return)) ) } \\ Harry J. Smith, Oct 18 2009
|
|
|
CROSSREFS
|
Cf. A178837 (corresponding indices).
Sequence in context: A076383 A024766 A058959 * A084838 A051694 A113650
Adjacent sequences: A065395 A065396 A065397 * A065399 A065400 A065401
|
|
|
KEYWORD
|
base,easy,nonn
|
|
|
AUTHOR
|
Jason Earls, Nov 22 2001
|
|
|
STATUS
|
approved
|
| |
|
|
