A116436 Numbers m which when sandwiched between two 1's give a multiple of m.
1, 11, 13, 77, 91, 137, 9091, 909091, 5882353, 10989011, 12987013, 52631579, 76923077, 90909091, 4347826087, 9090909091, 13698630137, 909090909091, 3448275862069, 10989010989011, 12987012987013, 76923076923077, 90909090909091, 9090909090909091, 909090909090909091
Offset: 1
Examples
77 is a member since 1771 is a multiple of 77 (77*23).
Links
- Michael S. Branicky, Table of n, a(n) for n = 1..1441 (terms 1..87 from Franklin T. Adams-Watters)
Crossrefs
Programs
-
Mathematica
f[k_, d_] := Flatten@Table[Select[Divisors[k*(10^(i + 1) + 1)], IntegerLength[ # ] == i &], {i, d}]; f[1, 14] (* Ray Chandler, May 11 2007 *)
-
PARI
A116436(k) = {local(l, d, lb, ub); d=divisors(10^(k+1)+1);l=[];lb=10^(k-1); ub=10*lb; for(i=1,#d, if(d[i]>=lb&&d[i]
A116436(i))); l \\ Franklin T. Adams-Watters, Apr 22 2008 -
Python
from sympy import isprime from itertools import count, islice def agen(): # generator of terms yield 1 for k in count(2): t = 10**(k+1) + 1 yield from (t//i for i in range(100, 10, -1) if t%i == 0) print(list(islice(agen(), 25))) # Michael S. Branicky, Mar 26 2023 following Franklin T. Adams-Watters but removing factorization
Formula
A351320(n) * a(n) = 1.a(n).1 where "." stands for concatenation. - Bernard Schott, Feb 07 2022
Comments