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

Author

Giovanni Resta, Jan 31 2006

Keywords

• nonn
• base

Examples

			997 is prime and 799=17*47 is brilliant.
		

Crossrefs

Cf. A078972, A115664.

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 *)