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 A226803 #40 Jun 20 2025 15:42:17
%S A226803 5,149,1049
%N A226803 Primes p where the digital sum of p^2 is equal to 7.
%C A226803 No more terms below 10^9. - _Michel Marcus_, Nov 02 2013
%C A226803 No more terms below 10^20. - _Hiroaki Yamanouchi_, Sep 23 2014
%e A226803 5 is in the sequence because 5^2 = 25 and 2 + 5 = 7.
%e A226803 149 is in the sequence because 149^2 = 22201 and 2 + 2 + 2 + 0 + 1 = 7.
%t A226803 Select[Prime[Range[10000]], Total[IntegerDigits[#^2]] == 7 &]
%o A226803 (Magma) [p: p in PrimesUpTo(6*10^6) | &+Intseq(p^2) eq 7];
%o A226803 (PARI) lista(nn) = {forprime(p=2, nn, if (sumdigits(p^2)==7, print1(p, ", ")););} \\ _Michel Marcus_, Nov 02 2013
%Y A226803 Subsequence of A215614.
%Y A226803 Cf. A226802, A165492, A165459, A165493.
%K A226803 nonn,base,bref,more
%O A226803 1,1
%A A226803 _Vincenzo Librandi_, Jun 24 2013
%E A226803 Keywords fini,full, since unproven, removed by _Max Alekseyev_, Jun 20 2025