OFFSET
1,14
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[n_]:=Module[{k=n+10*Last[IntegerDigits[n]]+Range[9]}, Length[Select[k, #-n==
FromDigits[{Last[IntegerDigits[n]], First[IntegerDigits[#]]}]&]]]; f/@Range[108] (* Ivan N. Ianakiev, Dec 24 2023 *)
PROG
(Python)
def a(n):
x = 10*(n%10)
return len([y for y in range(1, 10) if str(n+x+y)[0] == str(y)])
print([a(n) for n in range(1, 95)]) # Michael S. Branicky, Dec 23 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Dec 23 2023
STATUS
approved