login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Donovan Johnson, Table of n, a(n) for n = 1..1000

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 * A182896 A258514 A258507

Adjacent sequences:  A194352 A194353 A194354 * A194356 A194357 A194358

KEYWORD

nonn,base

AUTHOR

T. D. Noe, Aug 24 2011

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 18 01:05 EDT 2019. Contains 325109 sequences. (Running on oeis4.)