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,1

Links

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

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

Crossrefs

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

Sequence in context: A138359 A178553 A216203 * A258514 A258507 A254994

Adjacent sequences: A194352 A194353 A194354 * A194356 A194357 A194358

Keyword

nonn,base

Author

T. D. Noe, Aug 24 2011

Status

approved