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

Author

Carmine Suriano, Oct 15 2010

Keywords

• nonn
• base
• changed

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

Crossrefs

Intersection of A000045 and A108662.

Cf. A178838, A065398.

Programs

Mathematica

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

Formula

a(n) = A000045(A178838(n)). - Michel Marcus, Sep 01 2025

Extensions

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