A181364 Fibonacci numbers whose digits, when squared, sum to a prime.
21, 377, 610, 2584, 17711, 75025, 196418, 514229, 63245986, 701408733, 1134903170, 1836311903, 2971215073, 17167680177565, 72723460248141, 117669030460994, 2880067194370816120, 19740274219868223167, 354224848179261915075, 1500520536206896083277
Offset: 1
Examples
a(5) = 17711 = Fibonacci(22) since 1^2+7^2+7^2+1^2+1^2 = 1+49+49+1+1 = 101 is prime.
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..200
Programs
-
Mathematica
Select[Fibonacci[Range[150]],PrimeQ[Total[IntegerDigits[#]^2]]&] (* Harvey P. Dale, Feb 27 2012 *)
Formula
Extensions
Corrected and extended by Harvey P. Dale, Feb 27 2012