|
%I #16 Oct 16 2023 12:04:42
%S 1,4,6,8,9,10,12,15,18,21,22,24,25,26,27,28,33,36,39,40,42,44,45,46,
%T 48,49,51,52,54,55,56,57,58,60,62,63,64,65,66,68,69,72,75,77,78,80,81,
%U 82,84,85,86,87,88,90,93,94,96,99,100,102,105,108,111,114,116,117,120,122
%N Numbers with property that every permutation of digits (dropping any leading zeros) is 1 or a composite number.
%H T. D. Noe, <a href="/A067013/b067013.txt">Table of n, a(n) for n = 1..10000</a>
%e 10 is a term since 10 is not a prime number and the permutation (0)1 is not a prime number either.
%t t={};Do[l1=Table[FromDigits[k],{k,Permutations[IntegerDigits[n]]}]; If[Select[l1,PrimeQ]=={},AppendTo[t,n]],{n,122}];t (* _Jayanta Basu_, May 03 2013 *)
%Y Cf. A067012.
%K base,nonn
%O 1,2
%A _Lior Manor_, Dec 26 2001
|
