cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A235507 Harshad numbers which when divided by sum of their digits, give a quotient which is a Harshad number.

This page as a plain text file.
%I A235507 #23 Sep 02 2017 10:54:30
%S A235507 1,2,3,4,5,6,7,8,9,10,12,18,20,21,24,27,30,36,40,42,45,48,50,54,60,63,
%T A235507 70,72,80,81,84,90,100,108,120,162,180,200,210,216,240,243,270,300,
%U A235507 324,360,378,400,405,420,432,450,480,486,500,540,600,630,648,700,720
%N A235507 Harshad numbers which when divided by sum of their digits, give a quotient which is a Harshad number.
%C A235507 These numbers are also called MHN-2 or Multiple Harshad Numbers-2.
%H A235507 Ray Chandler, <a href="/A235507/b235507.txt">Table of n, a(n) for n = 1..10796</a> (all a(n) <= 10^6)
%H A235507 Wikipedia, <a href="http://en.wikipedia.org/wiki/Harshad_number">Harshad Number</a>
%e A235507 486 is a MHN as it is divisible by the sum of its digits i.e. 18. The quotient obtained, 27, is also divisible by the sum of its digits, i.e. 9.
%t A235507 mhnQ[n_]:=Module[{s=Total[IntegerDigits[n]]},Divisible[n,s]&&Divisible[ n/s,Total[IntegerDigits[n/s]]]]; Select[Range[800],mhnQ] (* _Harvey P. Dale_, Sep 02 2017 *)
%Y A235507 Cf. A005349, A235697.
%K A235507 nonn,base
%O A235507 1,2
%A A235507 _Mihir Mathur_, Jan 14 2014