|
%I #8 Dec 17 2014 15:18:35
%S 23,25,27,29,32,34,35,37,38,43,45,47,49,52,53,54,56,57,58,59,65,67,72,
%T 73,74,75,76,78,79,83,85,87,89,92,94,95,97,98,203,205,207,209,223,225,
%U 227,229,230,232,233,234,235,236,237,238,239,243,245,247,249
%N Numbers m such that GCD of digits of m is 1 and no digit of m is 1.
%C A052423(a(n)) = 1.
%H Reinhard Zumkeller, <a href="/A240913/b240913.txt">Table of n, a(n) for n = 1..10000</a>
%t gcdQ[n_]:=Module[{idn=IntegerDigits[n]},!MemberQ[idn,1]&&GCD@@idn==1]; Select[ Range[300],gcdQ] (* _Harvey P. Dale_, Dec 17 2014 *)
%o (Haskell)
%o a240913 n = a240913_list !! (n-1)
%o a240913_list = filter (not . elem '1' . show) a069715_list
%o (PARI) is(n)=my(d=Set(digits(n))); setsearch(d,1)==0 && gcd(d)==1 \\ _Charles R Greathouse IV_, Nov 01 2014
%Y Subsequence of A069715.
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Apr 14 2014
|
