|
| |
|
|
A089740
|
|
Primes which are tens complements of primes.
|
|
0
| |
|
|
3, 5, 7, 13, 31, 37, 43, 67, 73, 79, 97, 103, 113, 127, 139, 157, 163, 173, 181, 191, 199, 223, 227, 229, 233, 251, 257, 271, 281, 283, 313, 337, 349, 353, 359, 367, 383, 409, 419, 433, 449, 457, 463, 467, 479, 491, 523, 541, 547, 563, 569, 587, 601, 619, 631
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| b=Delete[Union[ Table[If[PrimeQ[a[[n]]]==True, a[[n]], 0], {n, 1, Dimensions[a][[1]]}]], 1]
|
|
|
PROG
| (TRUE BASIC) 100 -300 Prime Sieve into p(n): 301 DIM a( 0 to 10) 302 open #1: name "CM1:Pmod10R1000_data.txt", create newold, org text 310 FOR n=1 to 1000 311 LET a0=p(n) 320 FOR m=0 to 10 330 Rem digit 10 vecxtor 331 LET a(m)=mod(a0, 10) 340 LET a0=(a0-a(m))/10 350 NEXT m 351 LET s=0 352 rem make 10's complement of prime numbers 360 FOR l=0 to 10 370 LET s=s+Mod(10-a(l), 10)*10^l 380 NEXT l 390 PRINT #1: s; ", "; 400 NEXT n 401 close #1 460 END
|
|
|
CROSSREFS
| Sequence in context: A128547 A087383 A038928 * A179633 A047933 A075557
Adjacent sequences: A089737 A089738 A089739 * A089741 A089742 A089743
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 08 2004
|
|
|
EXTENSIONS
| Edited by Charles R Greathouse IV (charles.greathouse(AT)case.edu), Oct 28 2009
|
| |
|
|
