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

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

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