login
Semiprimes m such that the leftward cyclic permutation of its decimal digits is a larger semiprime.
1

%I #21 Jul 21 2018 03:20:25

%S 15,26,39,49,58,122,129,134,141,145,155,158,159,161,177,178,183,185,

%T 187,226,254,262,298,339,341,355,358,362,371,381,391,393,394,445,451,

%U 469,473,493,497,565,581,583,586,589,674,781,791,889,895,899,1114,1119

%N Semiprimes m such that the leftward cyclic permutation of its decimal digits is a larger semiprime.

%C Subsequence of A263106.

%H Zak Seidov, <a href="/A263108/b263108.txt">Table of n, a(n) for n = 1..28070</a> (all terms up to 10^6)

%e Permute the digits of 15 = 3 * 5 to get 51 = 3 * 17.

%e Permute the digits of 26 = 2 * 13 to get 62 = 2 * 31.

%e Permute the digits of 122 = 2 * 61 to get 221 = 13 * 17.

%e Permute the digits of 129 = 3 * 43 to get 291 = 3 * 97.

%t Select[Range[4, 1000000], 2 == PrimeOmega[#] == PrimeOmega[fd = FromDigits[RotateLeft[IntegerDigits[#]]]] && fd > # &] (* for b-file *)

%Y Cf. A001292, A001358, A085751, A263106.

%K nonn,base

%O 1,1

%A _Zak Seidov_, Oct 09 2015