login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A082943 Numbers not divisible by any of their digits nor by the sum of their digits. 1

%I

%S 23,29,34,37,38,43,46,47,49,53,56,57,58,59,67,68,69,73,74,76,78,79,83,

%T 86,87,89,94,97,98,223,227,229,233,239,249,253,257,259,263,267,269,

%U 277,283,289,293,299,323,329,334,337,338,343,346,347,349,353,356

%N Numbers not divisible by any of their digits nor by the sum of their digits.

%D Amarnath Murthy

%H Harvey P. Dale, <a href="/A082943/b082943.txt">Table of n, a(n) for n = 1..1000</a>

%e 38 is neither divisible by 3 nor 8 nor 11 (i.e. 3+8).

%t test1[n_] := Module[{dig = IntegerDigits[n]}, Union[Table[IntegerQ[n/dig[[i]]], {i, Length[dig]}]]] == {False}; test2[n_] := Module[{dig = IntegerDigits[n]}, Not[IntegerQ[n/Sum[dig[[i]], {i, Length[dig]}]]]]; Table[If[test1[n] && test2[n], n, 0], {n, 200}] // Union // Rest [From _José María Grau Ribas_, Feb 17 2010]

%t ndQ[n_]:=Module[{idn=IntegerDigits[n]},FreeQ[idn,0]&&NoneTrue[n/ Join[ idn, {Total[idn]}],IntegerQ]]; Select[Range[2000],ndQ] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 19 2016 *)

%Y Cf. A038772.

%K nonn,base

%O 1,1

%A Meenakshi Srikanth (menakan_s(AT)yahoo.com), Apr 30 2003

%E More terms from _Harvey P. Dale_, Oct 19 2016

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 15 16:09 EDT 2019. Contains 325049 sequences. (Running on oeis4.)