OFFSET
1,1
COMMENTS
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..16
MATHEMATICA
fQ[n_] := Block[{d = IntegerDigits@ n}, And[d == Sort@ d, And @@ Table[PrimeQ@ FromDigits[d = RotateLeft@ d], {Length[d] - 1}]]]; Select[
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Chai Wah Wu, Nov 11 2015
STATUS
approved