A111947 -id:A111947 - cp's OEIS frontend

A111948 Admirable Harshad numbers n such that the subtracted divisor is equal to the digital sum of n.

24, 42, 114, 222, 402, 2022, 2202, 7588, 8596, 10014, 11202, 12102, 17668, 21102, 27748, 29764, 31002, 32788, 39844, 42868, 43876, 45388, 46396, 48916, 49924, 55972, 56476, 57484, 58492, 65548, 66556, 69076, 70588, 71596, 78148, 81676

Offset: 1

Jason Earls, Aug 22 2005

			a(2)=42 because 1+2+3+7+14+21-6 = 42 and 42/6 = 7.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A111592, A005349, A111947.

harsQ[n_] := Divisible[n, Plus @@  IntegerDigits[n]]; admQ[n_] := (ab = DivisorSigma[1, n] - 2 n) > 0 && EvenQ[ab] &&  Plus @@ IntegerDigits[n] == ab/2 && ab/2 < n && Divisible[n, ab/2]; Select[Range[100000], harsQ[#] && admQ[#] &] (* Amiram Eldar, Oct 27 2019 *)

A109396 Admirable Harshad numbers such that the subtracted divisor is also a Harshad number.

Original entry on oeis.org

12, 20, 24, 30, 40, 42, 54, 70, 102, 114, 120, 222, 270, 402, 1002, 2022, 2202, 10002, 10014, 10792, 11202, 12102, 21102, 31002, 32128, 45356, 103002, 110202, 111102, 128768, 740870, 1000002, 1000014, 1001202, 1002102, 1021002, 1111002, 1200102

Offset: 1

Jason Earls, Aug 26 2005

			12 is in the sequence since it is a Harshad number (1 + 2 = 3 is a divisor of 12), an admirable number: 1 - 2 + 3 + 4 + 6 = 12, and the subtracted divisor, 2, is also a Harshad number.

Amiram Eldar, Table of n, a(n) for n = 1..100

Cf. A111592, A005349, A111947, A111948.

hQ[n_] := Divisible[n, Plus @@ IntegerDigits@n]; aQ[n_] := hQ[n] && (d = DivisorSigma[1, n] - 2*n) > 0 && EvenQ[d] && d/2 < n && hQ[d/2] && Divisible[n, d/2]; Select[Range[50000], aQ] (* Amiram Eldar, Oct 27 2019 *)

cp's OEIS Frontend

A111948 Admirable Harshad numbers n such that the subtracted divisor is equal to the digital sum of n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica