OFFSET
1,1
COMMENTS
A088116(k) is the sum of the products of each digit of k and the number obtained by removing that digit, for example, A088116(4567) = 4*567 + 5*467 + 6*457 + 7*456 = 10537. The sequence gives k such that A088116(k) = k.
36*10^j and 1314*10^j are terms for all j >= 0, since:
A088116(36*10^j) = 3*6*10^j + 6*3*10^j = 36*10^j and
A088116(1314*10^j) = 1*314*10^j + 3*114*10^j + 1*134^j + 4*131*10^j = 1314*10^j.
Are there any terms that are not of the form 36*10^j or 1314*10^j, with j >= 0?
EXAMPLE
1314 is a term since 1314 = 1*314 + 3*114 + 1*134 + 4*131.
MATHEMATICA
fsm[k_]:=Module[{kd=IntegerDigits[k], l=IntegerLength[k], sum=0}, Do[sum=sum+kd[[i]]*FromDigits[Drop[kd, {i}]], {i, l}]; sum]; Select[Range[1314000], #==fsm[#]&] (* James C. McMahon, Feb 02 2026 *)
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Gonzalo MartÃnez, Jan 25 2026
EXTENSIONS
a(13)-a(16) from Sean A. Irvine, Feb 01 2026
STATUS
approved
