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