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
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 (list; graph; refs; listen; history; text; internal format)
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: A277206 A214754 A153631 * A061754 A180066 A101784

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

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 June 17 17:07 EDT 2019. Contains 324196 sequences. (Running on oeis4.)