A367622 Number of comma-children of n in base 10.

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

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

Cf. A121805, A367338 (definition), A367341 (0's), A367346 (2's).

Sequence in context: A194087 A107034 A117410 * A368647 A240009 A281490

Adjacent sequences: A367619 A367620 A367621 * A367623 A367624 A367625

Keyword

nonn,base

Author

N. J. A. Sloane, Dec 23 2023

Status

approved