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 A194355 #17 May 28 2020 05:27:33 %S A194355 44488,222688,226288,258598,262288,285598,404488,440488,444088,528598, %T A194355 582598,622288,825598,852598,1113688,1116388,1131688,1136188,1161388, %U A194355 1163188,1233588,1235388,1253388,1311688,1316188,1323588,1325388,1332588,1335288,1352388 %N A194355 First of quintuples of consecutive happy numbers. %H A194355 Amiram Eldar, <a href="/A194355/b194355.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Donovan Johnson) %t A194355 f[n_] := Total[IntegerDigits[n]^2]; t = Select[Range[1500000], NestWhile[f, #, UnsameQ, All] == 1 &]; t[[Select[Range[Length[t] - 3], t[[#]] == t[[# + 1]] - 1 == t[[# + 2]] - 2 == t[[# + 3]] - 3 == t[[# + 4]] - 4 &]]] (* _T. D. Noe_, Aug 24 2011 *) %Y A194355 Cf. A007770, A035502, A055629, A072494, A194352. %K A194355 nonn,base %O A194355 1,1 %A A194355 _T. D. Noe_, Aug 24 2011