

A165503


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


3



433, 613, 683, 773, 827, 863, 1063, 1117, 1187, 1223, 1567, 1583, 1657, 1693, 1783, 1907, 1997, 2017, 2087, 2141, 2143, 2161, 2267, 2357, 2393, 2467, 2557, 2593, 2609, 2663, 2719, 2753, 2789, 2843, 2879, 2897, 2969, 2971, 3023, 3041, 3061, 3167, 3187
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

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


FORMULA

{A000040(i) : A123157(i) = 37} [R. J. Mathar, Sep 29 2009]


EXAMPLE

433 is in the sequence because 433^2=187489 and 1+8+7+4+8+9=37.
1783 is in the sequence because 1783^2=3179089 and 3+1+7+9+0+8+9=37.


MATHEMATICA

Select[Prime[Range[500]], Total[IntegerDigits[#^2]]== 37&] (* Vincenzo Librandi, Sep 12 2013 *)


PROG

(Magma) [p: p in PrimesUpTo(6150)  &+Intseq(p^2) eq 37]; // 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), this sequence (37), A165504 (43).
Sequence in context: A051964 A142686 A052235 * A142539 A059665 A059664
Adjacent sequences: A165500 A165501 A165502 * A165504 A165505 A165506


KEYWORD

nonn,base


AUTHOR

Vincenzo Librandi, Sep 21 2009


EXTENSIONS

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


STATUS

approved



