?- happy_numbers(L, 8).
L = [1,7,10,13,19,23,28,31].