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 A226802 #34 Jun 13 2025 20:36:16 %S A226802 19,71,179,251,449,20249,24499,100549 %N A226802 Primes p where the digital sum of p^2 is equal to 10. %C A226802 The next term is > 24154957 (if it exists). - _R. J. Mathar_, Jul 05 2013 %C A226802 No more terms below 10^12. - _Hiroaki Yamanouchi_, Sep 23 2014. %C A226802 No additional terms < 10^15. - _Chai Wah Wu_, Nov 15 2015 %C A226802 No other terms below 10^50. The sequence is likely finite and complete. - _Max Alekseyev_, Jun 13 2025 %e A226802 19 is in the sequence because 19^2=361 and 3+6+1=10. %e A226802 71 is in the sequence because 71^2=5041 and 5+0+4+1=10. %p A226802 select(p -> isprime(p) and convert(convert(p^2,base,10),`+`)=10, [seq(2*k+1,k=1..100000)]); # _Robert Israel_, Sep 23 2014 %t A226802 Select[Prime[Range[70000]], Total[IntegerDigits[#^2]]== 10&] %o A226802 (Magma) [p: p in PrimesUpTo(5*10^6) | &+Intseq(p^2) eq 10]; %Y A226802 Cf. A123157, A165492, A165459, A165493. Subset of A135027. %K A226802 nonn,base,more %O A226802 1,1 %A A226802 _Vincenzo Librandi_, Jun 24 2013