login
Digit reversal of n-th semiprime.
3

%I #11 Dec 06 2021 16:55:01

%S 4,6,9,1,41,51,12,22,52,62,33,43,53,83,93,64,94,15,55,75,85,26,56,96,

%T 47,77,28,58,68,78,19,39,49,59,601,111,511,811,911,121,221,321,921,

%U 331,431,141,241,341,541,641,551,851,951,161,661,961,771,871,381

%N Digit reversal of n-th semiprime.

%C The fixed points where a(n) = n are A046328.

%H Alois P. Heinz, <a href="/A210616/b210616.txt">Table of n, a(n) for n = 1..2000</a>

%F a(n) = R(A001358(n)) = A004086(A001358(n)).

%t t = Select[Range[200], PrimeOmega[#] == 2 &]; FromDigits[Reverse[IntegerDigits[#]]] & /@ t (* _T. D. Noe_, Mar 26 2012 *)

%t IntegerReverse/@Select[Range[500],PrimeOmega[#]==2&] (* _Harvey P. Dale_, Dec 06 2021 *)

%Y Cf. A001358, A004086, A046328.

%K nonn,base,easy

%O 1,1

%A _Jonathan Vos Post_, Mar 23 2012