This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A181364 #21 Sep 01 2025 11:16:26 %S A181364 21,377,610,2584,17711,75025,196418,514229,63245986,701408733, %T A181364 1134903170,1836311903,2971215073,17167680177565,72723460248141, %U A181364 117669030460994,2880067194370816120,19740274219868223167,354224848179261915075,1500520536206896083277 %N A181364 Fibonacci numbers whose digits, when squared, sum to a prime. %H A181364 Vincenzo Librandi, <a href="/A181364/b181364.txt">Table of n, a(n) for n = 1..200</a> %F A181364 a(n) = A000045(A178838(n)). - _Michel Marcus_, Sep 01 2025 %e A181364 a(5) = 17711 = Fibonacci(22) since 1^2+7^2+7^2+1^2+1^2 = 1+49+49+1+1 = 101 is prime. %t A181364 Select[Fibonacci[Range[150]],PrimeQ[Total[IntegerDigits[#]^2]]&] (* _Harvey P. Dale_, Feb 27 2012 *) %Y A181364 Intersection of A000045 and A108662. %Y A181364 Cf. A178838, A065398. %K A181364 nonn,base,changed %O A181364 1,1 %A A181364 _Carmine Suriano_, Oct 15 2010 %E A181364 Corrected and extended by _Harvey P. Dale_, Feb 27 2012