login
A367622
Number of comma-children of n in base 10.
2
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 2, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 2, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 2, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
OFFSET
1,14
LINKS
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
Cf. A121805, A367338 (definition), A367341 (0's), A367346 (2's).
Sequence in context: A194087 A107034 A117410 * A368647 A240009 A281490
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Dec 23 2023
STATUS
approved