|
| |
|
|
A068653
|
|
Composite number such that every cyclic permutation (other than the number itself) gives a prime.
|
|
4
|
|
|
|
14, 16, 20, 30, 32, 34, 35, 38, 50, 70, 74, 76, 91, 92, 95, 98, 110, 118, 119, 133, 170, 176, 194, 310, 316, 398, 710, 712, 715, 730, 731, 736, 772, 775, 778, 779, 790, 793, 794, 914, 935, 970, 973, 1118, 1130, 1195, 1312, 1336, 1370, 1774, 1937, 3110, 3112
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..53.
|
|
|
EXAMPLE
|
176 is a member as the two cyclic permutations other than the number itself 761 and 617 are primes.
|
|
|
MATHEMATICA
|
LiQ[n_] := Module[{s=0}, li1=IntegerDigits[n]; k=Length[li1]; t={li1}; Do[li1=RotateLeft[li1]; AppendTo[t, li1], {i, k-1}]; If[Length[Select[Table[FromDigits[p], {p, t}], PrimeQ]] == k-1, s=1]; s]; t1={}; Do[If[!PrimeQ[i] && LiQ[i]==1, AppendTo[t1, i]], {i, 10, 3112}]; t1 (* Jayanta Basu, May 03 2013 *)
|
|
|
CROSSREFS
|
Cf. A003459, A068652.
Sequence in context: A176686 A007935 A076055 * A225193 A102616 A076023
Adjacent sequences: A068650 A068651 A068652 * A068654 A068655 A068656
|
|
|
KEYWORD
|
base,nonn
|
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Feb 28 2002
|
|
|
EXTENSIONS
|
Corrected and extended by Larry Reeves (larryr(AT)acm.org), Jun 21 2002
|
|
|
STATUS
|
approved
|
| |
|
|
