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 A381046 #19 Apr 22 2025 18:45:47
%S A381046 1,7,44,888,5555,88888,1111111,2222222,22222222,77777777,1111111111,
%T A381046 7777777777,22222222222,44444444444,444444444444,1111111111111,
%U A381046 4444444444444,7777777777777,999999999999999,7777777777777777,22222222222222222,77777777777777777
%N A381046 Happy repdigit numbers.
%H A381046 Shyam Sunder Gupta, <a href="https://doi.org/10.1007/978-981-97-2465-9_7">Happy Numbers</a>, Exploring the Beauty of Fascinating Numbers, Springer (2025) Ch. 7, 209-222.
%e A381046 888 is a term since it is a repdigit number consisting of digit 8 only and is also a happy number (64+64+64 = 192, and 1+81+4 = 86, and 64+36 = 100, and 1+0+0 = 1).
%t A381046 happyQ[n_] := NestWhile[Total[IntegerDigits[#]^2] &, n, UnsameQ, All] == 1; Select[Union[Table[k*(10^n - 1)/9, {k, 1, 9}, {n, 17}] // Flatten], happyQ] (* _Amiram Eldar_, Apr 14 2025 *)
%Y A381046 Intersection of A010785 and A007770.
%K A381046 nonn,base
%O A381046 1,2
%A A381046 _Shyam Sunder Gupta_, Apr 14 2025