login
A168436
Terms of A046732 listed in decreasing order.
0
987653201, 987652301, 987650231, 987643021, 987640321, 987630251, 987615203, 987603521, 987602531, 987563021, 987546103, 987542063, 987540613, 987536201, 987526103, 987502643, 987460531, 987435061, 987432601, 987423601, 987405163
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
Cf. A046732.
Sequence in context: A375644 A114261 A321489 * A168435 A363963 A230959
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