|
%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
|
