login
Lynch-Bell numbers n such that 5 is a digit of n.
0

%I #5 Aug 19 2019 17:52:34

%S 5,15,135,175,315,735,1395,1935,3195,3915,9135,9315

%N Lynch-Bell numbers n such that 5 is a digit of n.

%C A Lynch-Bell number is a positive integer n with distinct nonzero digits such that each of its digits divides the number: n mod d = 0 if d is a digit of n.

%e a(3)=135 since 135 is the third Lynch-Bell number that contains a 5.

%t lbn5Q[n_]:=Module[{idn=IntegerDigits[n]},MemberQ[idn,5]&&FreeQ[idn,0]&&Max[DigitCount[n]]==1&&AllTrue[n/idn,IntegerQ]]; Select[Range[ 10000],lbn5Q] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Aug 19 2019 *)

%Y Cf. A115569, A034838, A034709, A063527.

%K fini,full,base,nonn

%O 1,1

%A _Walter Kehowski_, Apr 03 2006