

A046891


Values of n where number of permutations of digits a(n) that are prime increases.


2



1, 2, 13, 103, 107, 1007, 1013, 1049, 1079, 1237, 10013, 10039, 10079, 10139, 10237, 10279, 10379, 13789, 100127, 100139, 100235, 100237, 100279, 101237, 101239, 102347, 102367, 102379, 103579, 103789, 1001234, 1001237, 1001239, 1002347
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

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


MATHEMATICA

ap[n_] := Count[FromDigits /@ Permutations[IntegerDigits[n]], _?PrimeQ]; t = {1}; x = 0; Do[If[ap[i] > x, AppendTo[t, i]; x = ap[i]], {i, 105000}]; t (* Jayanta Basu, Jun 29 2013 *)


CROSSREFS

Cf. A039999, A046892.
Sequence in context: A234299 A077246 A107000 * A046893 A126036 A113598
Adjacent sequences: A046888 A046889 A046890 * A046892 A046893 A046894


KEYWORD

nonn,base


AUTHOR

David W. Wilson


STATUS

approved



