login
A194355
First of quintuples of consecutive happy numbers.
1
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
KEYWORD
nonn,base
AUTHOR
T. D. Noe, Aug 24 2011
STATUS
approved