login
This site is supported by donations to The OEIS Foundation.
Logo

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A107288 Primes whose digit sum is a square. 2
13, 31, 79, 97, 103, 211, 277, 349, 367, 439, 457, 547, 619, 673, 691, 709, 727, 853, 907, 997, 1021, 1069, 1087, 1201, 1249, 1429, 1447, 1483, 1609, 1627, 1663, 1699, 1753, 1789, 1861, 1879, 1933, 1951, 1987, 2011, 2239, 2293, 2347, 2383, 2437, 2473 (list; graph; refs; listen; history; internal format)
OFFSET

1,1

MATHEMATICA

bb={}; Do[If[IntegerQ[Sqrt[Apply[Plus, IntegerDigits[p=Prime[n]]]]], bb=Append[bb, p]], {n, 500}]; bb

CROSSREFS

Sequence in context: A061239 A072023 A158723 * A095379 A160772 A039403

Adjacent sequences:  A107285 A107286 A107287 * A107289 A107290 A107291

KEYWORD

nonn,base

AUTHOR

Zak Seidov (zakseidov(AT)yahoo.com), May 20 2005

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified February 17 00:09 EST 2012. Contains 205978 sequences.