OFFSET
1,1
MAPLE
read("transforms") ; ndgs := proc(n) max(1, ilog10(n)+1) ; end proc: isA029743 := proc(n) dgs := convert(convert(n, base, 10), set) ; return ( nops(dgs) = ndgs(n) ); end proc: isA006567 := proc(n) if isprime(n) then dgs := digrev(n) ; return (isprime(dgs) and dgs <> n ); else false; end if; end proc: p := 987654321 : while true do if isA006567(p) and isA029743(p) then printf("%d, \n", p) ; end if: p := prevprime(p) ; end do: # R. J. Mathar, Mar 06 2010
CROSSREFS
KEYWORD
fini,nonn,base
AUTHOR
Lekraj Beedassy, Nov 25 2009
EXTENSIONS
a(6) and a(7) inserted and sequence extended by R. J. Mathar, Mar 06 2010
STATUS
approved