

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;
text;
internal format)



OFFSET

1,3


LINKS

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


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: A217078 A138594 A131651 * A072974 A226025 A082686
Adjacent sequences: A134639 A134640 A134641 * A134643 A134644 A134645


KEYWORD

nonn


AUTHOR

Artur Jasinski, Nov 05 2007, Nov 07 2007


STATUS

approved



