|
Search: id:A078403
|
|
| |
|
| 2, 3, 5, 7, 11, 23, 29, 41, 43, 47, 59, 61, 79, 83, 97, 101, 113, 131, 137, 149, 151, 167, 173, 191, 223, 227, 239, 241, 257, 263, 277, 281, 293, 311, 313, 317, 331, 347, 349, 353, 367, 383, 389, 401, 419, 421, 439, 443, 457, 461, 479, 491, 509, 547, 563, 569
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
59 is a term because 5+9=14, giving (final) iterated sum 1+4=5, and 5 is prime.
|
|
MATHEMATICA
|
Select[ Range[580], PrimeQ[ # ] && PrimeQ[Mod[ #, 9]] &]
|
|
PROGRAM
|
(PARI) forprime(p=2, 997, if(isprime(p%9), print1(p, ", ")))
|
|
CROSSREFS
|
Cf. A070027, A078400.
Adjacent sequences: A078400 A078401 A078402 this_sequence A078404 A078405 A078406
Sequence in context: A048278 A068863 A087521 this_sequence A129945 A046704 A089392
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
njas, Dec 26 2002
|
|
EXTENSIONS
|
Extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Klaus Brockhaus (klaus-brockhaus(AT)t-online.de) and Rick L. Shepherd (rshepherd2(AT)hotmail.com), Dec 27 2002
|
|
|
Search completed in 0.002 seconds
|
