A188283 Numbers k such that iterations for the map r -> A061602(r) starting with k ends with a fixed point (factorions A014080).
0, 1, 2, 10, 11, 145, 154, 223, 232, 322, 405, 415, 450, 451, 504, 514, 540, 541, 569, 596, 659, 695, 956, 965, 1023, 1032, 1123, 1132, 1203, 1213, 1223, 1230, 1231, 1232, 1302, 1312, 1320, 1321, 1322, 1449, 1494, 1569, 1596, 1659, 1695, 1944, 1956, 1965, 2003
Offset: 1
Examples
Number 405 is in sequence because 405 -> 145 -> 145 -> ...
Programs
-
PARI
is(k) = {my(t=k, v=List([k])); while(t=sum(i=1, #d=digits(t), d[i]!), if(t==v[#v], return(1), if(sum(i=1, #v-1, t==v[i]), return(0))); listput(v, t)); } \\ Jinyuan Wang, Nov 07 2020
Extensions
Missing terms a(1) and a(8)-a(10) added by Jaroslav Krizek, Jan 28 2012
Name corrected and more terms from Jinyuan Wang, Nov 07 2020
Comments