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.
%I A242043 #22 Jun 03 2023 10:09:56
%S A242043 1,5,12,70,117,210,247,330,715,782,1080,1520,1926,2625,2752,3015,3290,
%T A242043 3432,4510,5370,5922,6902,7740,8400,9560,11310,12105,13776,14652,
%U A242043 15862,17442,21182,21540,23002,24130,26070,27270,30602,31032,32340,34580,38320,39285
%N A242043 Pentagonal numbers that are also Niven numbers.
%C A242043 Intersection of A000326 and A005349.
%H A242043 K. D. Bajpai, <a href="/A242043/b242043.txt">Table of n, a(n) for n = 1..10344</a>
%e A242043 a(3) = 12 = 3*(3 * 3 - 1)/2 is a pentagonal number. Since 12 is divisible by 1 + 2 = 3, it is also a Harshad number and therefore in the sequence.
%e A242043 a(5) = 117 = 9*(3 * 9 - 1)/2 is a pentagonal number. Since 117 is divisible by 1 + 1 + 7 = 9 is also a Harshad number, and therefore in the sequence.
%t A242043 A242043 = {}; Do[k = (3*n^2 - n)/2; If[IntegerQ[k/(Plus @@ IntegerDigits[k])], AppendTo[A242043, k]], {n, 300}]; A242043 (* Bajpai *)
%t A242043 Select[Table[n(3n - 1)/2, {n, 200}], Divisible[#, Plus@@IntegerDigits[#]] &] (* _Alonso del Arte_, Aug 16 2014 *)
%t A242043 Select[PolygonalNumber[5,Range[200]],Mod[#,Total[IntegerDigits[#]]]==0&] (* _Harvey P. Dale_, Nov 30 2022 *)
%Y A242043 Cf. A000326, A005349, A076713.
%K A242043 nonn,base
%O A242043 1,2
%A A242043 _K. D. Bajpai_, Aug 12 2014