|
| |
|
|
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
|
| |
|
|
