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
Examples
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.
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Magma
[p: p in PrimesUpTo(6150) | &+Intseq(p^2) eq 43]; // Vincenzo Librandi, Sep 12 2013
-
Mathematica
Select[Prime[Range[300]], Total[IntegerDigits[#^2]] == 43&] (* Vincenzo Librandi, Sep 12 2013 *)
Formula
Extensions
More terms from R. J. Mathar, Sep 29 2009
Comments