login
A165504
Primes p with a digits sum of p^2 equal to 43.
5
887, 1697, 1723, 1867, 1913, 2083, 2137, 2417, 2543, 2633, 2687, 2767, 2803, 2957, 3083, 3109, 3137, 3433, 3793, 3847, 3947, 4073, 4217, 4423, 4567, 4657, 4783, 4793, 4937, 5099, 5233, 5279, 5333, 5387, 5431, 5647, 5683, 5827, 6043, 6053, 6133, 6143
OFFSET
1,1
LINKS
FORMULA
{A000040(i) : A123157(i) = 43} [R. J. Mathar, Sep 29 2009]
EXAMPLE
887 is in the sequence because 887^2=786769 and 7+8+6+7+6+9=43.
1723 is in the sequence because 1723^2=2968729 and 2+9+6+8+7+2+9=43.
MATHEMATICA
Select[Prime[Range[300]], Total[IntegerDigits[#^2]] == 43&] (* Vincenzo Librandi, Sep 12 2013 *)
PROG
(Magma) [p: p in PrimesUpTo(6150) | &+Intseq(p^2) eq 43]; // Vincenzo Librandi, Sep 12 2013
CROSSREFS
Cf. primes p where the digital sum of p^2 is equal to: A226803 (7), A165492 (13), A165493 (19), A165502 (31), A165503 (37), this sequence (43).
Sequence in context: A190354 A164513 A031938 * A351667 A136966 A232152
KEYWORD
nonn,base
AUTHOR
Vincenzo Librandi, Sep 21 2009
EXTENSIONS
More terms from R. J. Mathar, Sep 29 2009
STATUS
approved