cp's OEIS Frontend

A229058 Primes p where the digital sum of p^2 is equal to 25.

%I A229058 #36 Sep 08 2022 08:46:05
%S A229058 67,113,157,193,257,283,311,337,373,409,419,463,509,599,643,653,661,
%T A229058 743,761,769,797,1013,1031,1039,1103,1129,1193,1237,1301,1381,1399,
%U A229058 1427,1471,1481,1553,1571,1579,1597,1733,1759,1823,1831,1877,2029,2039,2111,2129
%N A229058 Primes p where the digital sum of p^2 is equal to 25.
%C A229058 From _Bruno Berselli_, Sep 12 2013: (Start)
%C A229058 Primes q such that the digital sum of q^2 is 1 < k < 50:
%C A229058 k  | q
%C A229058 ---|------------
%C A229058 4  | 2, 11, 101;
%C A229058 7  | A226803;
%C A229058 9  | 3;
%C A229058 10 | A226802;
%C A229058 13 | A165492;
%C A229058 16 | A165459;
%C A229058 19 | A165493;
%C A229058 22 | 43, 97, 191, 227, 241, 317, 331, 353, ... ;
%C A229058 25 | this sequence;
%C A229058 28 | 163, 197, 233, 307, 359, 397, 431, 467, ... ;
%C A229058 31 | A165502;
%C A229058 34 | 167, 293, 383, 563, 607, 617, 733, 787, ... ;
%C A229058 37 | A165504;
%C A229058 40 | 313, 947, 983, 1303, 1483, 1609, 1663, ... ;
%C A229058 43 | A165504;
%C A229058 46 | 883, 937, 1367, 1637, 2213, 2447, 2683, ... ;
%C A229058 49 | 1667, 2383, 2437, 2617, 2963, 4219, 4457, ... . (End)
%H A229058 Vincenzo Librandi, <a href="/A229058/b229058.txt">Table of n, a(n) for n = 1..1000</a>
%t A229058 Select[Prime[Range[400]], Total[IntegerDigits[#^2]] == 25 &]
%o A229058 (Magma) [p: p in PrimesUpTo(2600) | &+Intseq(p^2) eq 25];
%Y A229058 Cf. A165459, A165492, A165493, A165502-A165504, A226802, A226803.
%K A229058 nonn
%O A229058 1,1
%A A229058 _Vincenzo Librandi_, Sep 12 2013