|
| |
|
|
A134642
|
|
Nonprime permutational numbers A134640.
|
|
7
| |
|
|
0, 1, 15, 21, 27, 30, 39, 45, 54, 57, 75, 78, 99, 108, 114, 120, 135, 141, 147, 156, 177, 180, 198, 201, 210, 216, 225, 228, 194, 198, 214, 222, 238, 242, 294, 298, 334, 346, 358, 366, 414, 422, 434, 446, 482, 486, 538, 542, 558, 566, 582, 586, 694, 698, 714
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
MATHEMATICA
| a = {}; b = {}; Do[AppendTo[b, n]; w =Permutations[b]; Do[j = FromDigits[w[[m]], n + 1]; If[PrimeQ[j], AppendTo[a, j]], {m, 1, Length[w]}], {n, 0, 10}]; a (*Artur Jasinski*)
|
|
|
CROSSREFS
| Cf. A134640, A134641.
Sequence in context: A070811 A138594 A131651 * A072974 A082686 A102030
Adjacent sequences: A134639 A134640 A134641 * A134643 A134644 A134645
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Nov 05 2007, Nov 07 2007
|
| |
|
|
