OFFSET
1,1
PROG
(True BASIC)
100 to 300 prime sieve into p(n)
301 DIM a( 0 to 10)
302 open #1: name "CM1:Pmod10R_data", create newold, org text
310 FOR n=1 to 200
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
KEYWORD
nonn,base,less
AUTHOR
Roger L. Bagula, Jan 07 2004
STATUS
approved