A065398 Fibonacci numbers whose digits sum to a prime.

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

Offset: 1

Author

Jason Earls, Nov 22 2001

Keywords

• base
• easy
• nonn

Links

• Harry J. Smith, Table of n, a(n) for n = 1..100

Crossrefs

Cf. A000045, A178837 (corresponding indices).

Programs

Mathematica

Select[Fibonacci[Range[100]],PrimeQ[Total[IntegerDigits[#]]]&] (* Harvey P. Dale, Mar 24 2017 *)

PARI

{ for (m=1, 10^2, my(f=fibonacci(m)); if (isprime(sumdigits(f)), print1(f, ", "))) } \\ Harry J. Smith, Oct 18 2009

Formula

a(n) = A000045(A178837(n)).