A165504 Primes p with a digits sum of p^2 equal to 43.

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

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

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

Adjacent sequences: A165501 A165502 A165503 * A165505 A165506 A165507

Keyword

nonn,base

Author

Vincenzo Librandi, Sep 21 2009

Extensions

More terms from R. J. Mathar, Sep 29 2009

Status

approved