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,1

Links

Table of n, a(n) for n=1..42.

Example

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

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

Crossrefs

Cf. A078972, A115664.

Sequence in context: A168348 A052032 A176924 * A367421 A282353 A118636

Adjacent sequences: A115660 A115661 A115662 * A115664 A115665 A115666

Keyword

nonn,base

Author

Giovanni Resta, Jan 31 2006

Status

approved