|
| |
|
|
A078494
|
|
Primes occurring only once in their decade.
|
|
0
| |
|
|
97, 113, 127, 149, 181, 211, 241, 293, 307, 367, 397, 419, 421, 457, 479, 487, 557, 587, 631, 661, 683, 691, 719, 727, 743, 773, 787, 797, 809, 811, 839, 863, 877, 907, 929, 937, 953, 967, 983, 1009, 1021, 1049, 1051, 1087, 1117, 1163, 1171, 1193, 1201, 1249
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
PROG
| (PARI) decade1pr(n1, n2) = { forstep(x=n1, n2, 10, if(isprime(x+1) && !isprime(x+3) && !isprime(x+7) && !isprime(x+9), print1(x+1" "); ); if(isprime(x+3) && !isprime(x+1) && !isprime(x+7) && !isprime(x+9), print1(x+3" "); ); if(isprime(x+7) && !isprime(x+1) && !isprime(x+3) && !isprime(x+9), print1(x+7" "); ); if(isprime(x+9) && !isprime(x+1) && !isprime(x+3) && !isprime(x+7), print1(x+9" "); ); ); }
|
|
|
CROSSREFS
| Sequence in context: A033202 A160032 A136477 * A139980 A140830 A038133
Adjacent sequences: A078491 A078492 A078493 * A078495 A078496 A078497
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Cino Hilliard (hillcino368(AT)gmail.com), Jan 04 2003
|
| |
|
|
