|
Search: id:A086150
|
|
|
| A086150 |
|
Number of permutations of decimal digits of n which yield nonprime numbers. |
|
+0
2
|
|
| 1, 0, 0, 1, 0, 1, 0, 1, 1, 2, 0, 2, 0, 1, 2, 1, 0, 2, 1, 1, 2, 1, 1, 2, 2, 2, 2, 2, 1, 1, 0, 1, 1, 1, 1, 2, 0, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 2, 2, 1, 2, 2, 1, 2, 1, 2, 2, 2, 1, 2, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 0, 2, 0, 1, 2, 1, 1, 2, 0, 2, 2, 2, 1, 2, 2, 2, 2, 1, 1, 2, 1, 1, 2, 2, 1, 2, 0, 1, 1, 3, 1, 6, 3, 4, 6
(list; graph; listen)
|
|
|
OFFSET
|
1,10
|
|
|
EXAMPLE
|
n=117, digit-permutations={117,171,711} are all composites, so a(117)=3.
|
|
MATHEMATICA
|
nd[x_, y_] := 10*x+y tn[x_] := Fold[nd, 0, x] Table[Count[Table[PrimeQ[tn[Part[Permutations[ IntegerDigits[w]], j]]], {j, 1, Length[Permutations[ IntegerDigits[w]]]}], False], {w, 1, 128}]
|
|
CROSSREFS
|
Cf. A039999.
Sequence in context: A026612 A046922 A029401 this_sequence A105166 A105783 A022879
Adjacent sequences: A086147 A086148 A086149 this_sequence A086151 A086152 A086153
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Aug 04 2003
|
|
|
Search completed in 0.002 seconds
|
