The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #4 Jun 08 2013 09:05:51
%S 41,53,109,137,163,193,307,317,349,397,773,977,997,1051,1093,1171,
%T 1297,1307,1451,1553,1621,1721,1801,1861,1951,3001,3041,3323,3331,
%U 3361,3461,3491,3593,3631,3671,3673,3701,3923,7001,7151,7213,7283
%N Prime numbers whose digit reversal is a brilliant number (A078972).
%e 997 is prime and 799=17*47 is brilliant.
%t 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 *)
%Y Cf. A078972, A115664.
%K nonn,base
%O 1,1
%A _Giovanni Resta_, Jan 31 2006