|
%I #12 Nov 13 2015 03:51:26
%S 2,3,5,7,11,13,17,37,79,113,199,337,3779,1111111111111111111,
%T 11111111111111111111111
%N Numbers with nondecreasing digits such that every cyclic shift is a prime.
%C a(16) is too big to display, see the b-file.
%C a(n) is the intersection of the sequences A068652 and A009994. A258706 is a subsequence. Up until a(16) only the term 3779 is missing from A258706.
%H Chai Wah Wu, <a href="/A263499/b263499.txt">Table of n, a(n) for n = 1..16</a>
%t fQ[n_] := Block[{d = IntegerDigits@ n}, And[d == Sort@ d, And @@ Table[PrimeQ@ FromDigits[d = RotateLeft@ d], {Length[d] - 1}]]]; Select[
%t Prime@ Range@ 600, fQ] (* _Michael De Vlieger_, Nov 12 2015, after _T. D. Noe_ at A068652 *)
%Y Cf. A068652, A009994, A258706.
%K nonn,base
%O 1,1
%A _Chai Wah Wu_, Nov 11 2015
|
