A161871 Smallest happy number > 1 in base n.

2, 3, 2, 5, 6, 7, 8, 3, 7, 11, 12, 13, 14, 15, 2, 17, 2, 5, 2, 21, 22, 23, 24, 5, 26, 27, 28, 3, 2, 31, 32, 33, 3, 35, 6, 31, 38, 39, 40, 13, 42, 43, 44, 45, 46, 47, 48, 7, 50, 51, 52, 31, 54, 53, 56, 57, 58, 59, 54, 61, 62, 63, 8, 65, 66, 67, 12, 69, 70, 71, 72

Offset

2,1

Links

Amiram Eldar, Table of n, a(n) for n = 2..1001

Mathematica

happyQ[n_, b_] := NestWhile[Plus @@ (IntegerDigits[#, b]^2) &, n, UnsameQ, All] == 1; a[b_] := Module[{k=2}, While[!happyQ[k, b], k++]; k]; Array[a, 100, 2] (* Amiram Eldar, May 28 2020 *)

Crossrefs

Cf. A007770 (happy numbers in base 10).

Sequence in context: A293303 A333569 A110500 * A331737 A135875 A372379

Adjacent sequences: A161868 A161869 A161870 * A161872 A161873 A161874

Keyword

nonn,base

Author

Jud McCranie, Jun 20 2009

Status

approved