|
| |
|
|
A165492
|
|
Primes p with a digits sum of p^2 equal to 13.
|
|
1
| |
|
|
7, 29, 47, 61, 79, 151, 349, 389, 461, 601, 1051, 1249, 1429, 1451, 1789, 2239, 3499, 4799, 5011, 5101, 5501, 5749, 10501, 11149, 14249, 50101, 51001, 55001, 100501, 100649, 101149, 150001, 318751, 448999, 501001, 1009951
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| {A000040(i) : A123157(i) = 13} [R. J. Mathar, Sep 29 2009]
|
|
|
EXAMPLE
| 29 is in the sequence because 29^2=841 and 8+4+1=13.
1789 is in the sequence because 1789^2=3200521 and 3+2+0+0+5+2+1=13.
|
|
|
MATHEMATICA
| Select[Prime[Range[80000]], Total[IntegerDigits[#^2]]==13&] (* From Harvey P. Dale, Apr 08 2011 *)
|
|
|
CROSSREFS
| Cf. A165502, A165503, A165504
Sequence in context: A075583 A103603 A045465 * A084201 A031380 A005698
Adjacent sequences: A165489 A165490 A165491 * A165493 A165494 A165495
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Vincenzo Librandi (vincenzo.librandi(AT)tin.it), Sep 21 2009
|
|
|
EXTENSIONS
| More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Sep 29 2009
|
| |
|
|
