OFFSET
1,1
COMMENTS
First 18 terms are also in A085751.
LINKS
Zak Seidov, Table of n, a(n) for n = 1..65049 (all terms up to 10^6)
EXAMPLE
15 = 3 * 5, 51 = 3 * 17; 889 = 7 * 17, 898 = 2 * 449.
MATHEMATICA
Select[Range[4, 1000], 2 == PrimeOmega[#] == PrimeOmega[FromDigits[RotateLeft[IntegerDigits[#]]]] &]
PROG
(PARI) shl(n)=if(n<10, return(n)); my(d=digits(n)); fromdigits(concat(d[2..#d], d[1]))
is(n)=bigomega(n)==2 && bigomega(shl(n))==2 \\ Charles R Greathouse IV, Oct 12 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Oct 09 2015
STATUS
approved