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

23, 29, 34, 37, 38, 43, 46, 47, 49, 53, 56, 57, 58, 59, 67, 68, 69, 73, 74, 76, 78, 79, 83, 86, 87, 89, 94, 97, 98, 223, 227, 229, 233, 239, 249, 253, 257, 259, 263, 267, 269, 277, 283, 289, 293, 299, 323, 329, 334, 337, 338, 343, 346, 347, 349, 353, 356

Offset

1,1

References

Amarnath Murthy

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

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

Mathematica

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]
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 *)

Crossrefs

Cf. A038772.

Sequence in context: A214754 A344375 A153631 * A061754 A180066 A353286

Adjacent sequences: A082940 A082941 A082942 * A082944 A082945 A082946

Keyword

nonn,base

Author

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

Extensions

More terms from Harvey P. Dale, Oct 19 2016

Status

approved