OFFSET
1,2
COMMENTS
If x is a member then so is 10*x. - Robert Israel, Jan 25 2017
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
ishappy:= proc(n) option remember;
procname(convert(map(`^`, convert(n, base, 10), 2), `+`))
end proc:
ishappy(1):= true:
ishappy(37):= false:
select(t -> ishappy(t) and ishappy(t^2), [$1..10000]); # Robert Israel, Jan 25 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Sam Turley, Jan 11 2017
STATUS
approved