A168436 Terms of A046732 listed in decreasing order.

987653201, 987652301, 987650231, 987643021, 987640321, 987630251, 987615203, 987603521, 987602531, 987563021, 987546103, 987542063, 987540613, 987536201, 987526103, 987502643, 987460531, 987435061, 987432601, 987423601, 987405163

Offset: 1

Author

Lekraj Beedassy, Nov 25 2009

Keywords

• fini
• nonn
• base

Crossrefs

Cf. A046732.

Programs

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

Extensions

a(6) and a(7) inserted and sequence extended by R. J. Mathar, Mar 06 2010