A115663 Prime numbers whose digit reversal is a brilliant number (A078972).
41, 53, 109, 137, 163, 193, 307, 317, 349, 397, 773, 977, 997, 1051, 1093, 1171, 1297, 1307, 1451, 1553, 1621, 1721, 1801, 1861, 1951, 3001, 3041, 3323, 3331, 3361, 3461, 3491, 3593, 3631, 3671, 3673, 3701, 3923, 7001, 7151, 7213, 7283
Offset: 1
Examples
997 is prime and 799=17*47 is brilliant.
Programs
-
Mathematica
brilQ[n_]:=Module[{fin=FactorInteger[n]},Total[Transpose[fin][[2]]]==2 && Length[Union[IntegerLength[Transpose[fin][[1]]]]]==1]; Select[Prime[ Range[1000]],brilQ[FromDigits[Reverse[IntegerDigits[#]]]]&] (* Harvey P. Dale, Jun 08 2013 *)