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,1

Links

Table of n, a(n) for n=1..21.

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: A015394 A114261 A321489 * A168435 A363963 A230959

Adjacent sequences: A168433 A168434 A168435 * A168437 A168438 A168439

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