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,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..200

Example

a(5)=17711=Fib(22) since 1^2+7^2+7^2+1^2+1^2=1+49+49+1+1=101 is a prime

Mathematica

Select[Fibonacci[Range[150]], PrimeQ[Total[IntegerDigits[#]^2]]&] (* Harvey P. Dale, Feb 27 2012 *)

Crossrefs

Cf. A065398

Sequence in context: A152182 A036904 A218763 * A134494 A004370 A001881

Adjacent sequences: A181361 A181362 A181363 * A181365 A181366 A181367

Keyword

nonn,base

Author

Carmine Suriano, Oct 15 2010

Extensions

Corrected and extended by Harvey P. Dale, Feb 27 2012

Status

approved