|
|
A165492
|
|
Primes p where the digital sum of p^2 is equal to 13.
|
|
7
|
|
|
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, 5000011, 5000101, 5001001, 50000101
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
Vincenzo Librandi and Hiroaki Yamanouchi, Table of n, a(n) for n = 1..61 (terms a(1)-a(44) from Vincenzo Librandi)
|
|
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&] (* Harvey P. Dale, Apr 08 2011 *)
|
|
PROG
|
(MAGMA) [p: p in PrimesUpTo(5*10^7) | &+Intseq(p^2) eq 13]; // Vincenzo Librandi, Sep 26 2015
|
|
CROSSREFS
|
Cf. A165502 - A165504.
Sequence in context: A103603 A045465 A330723 * A084201 A031380 A005698
Adjacent sequences: A165489 A165490 A165491 * A165493 A165494 A165495
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Vincenzo Librandi, Sep 21 2009
|
|
EXTENSIONS
|
More terms from R. J. Mathar, Sep 29 2009
a(37)-a(40) from Hiroaki Yamanouchi, Sep 23 2014
|
|
STATUS
|
approved
|
|
|
|