A194355 First of quintuples of consecutive happy numbers.

44488, 222688, 226288, 258598, 262288, 285598, 404488, 440488, 444088, 528598, 582598, 622288, 825598, 852598, 1113688, 1116388, 1131688, 1136188, 1161388, 1163188, 1233588, 1235388, 1253388, 1311688, 1316188, 1323588, 1325388, 1332588, 1335288, 1352388

Offset: 1

Author

T. D. Noe, Aug 24 2011

Keywords

• nonn
• base

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Donovan Johnson)

Crossrefs

Cf. A007770, A035502, A055629, A072494, A194352.

Programs

Mathematica

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 *)