OFFSET
1,2
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..3170
EXAMPLE
219 belongs since 32193 is a multiple of 219 (219*147).
MATHEMATICA
f[k_, d_] := Flatten@Table[Select[Divisors[k*(10^(i + 1) + 1)], IntegerLength[ # ] == i &], {i, d}]; f[3, 10] (* Ray Chandler, May 11 2007 *)
PROG
(Python)
from sympy import isprime
from itertools import count, islice
def agen(): # generator of terms
yield from [1, 3]
for k in count(2):
t = 3*(10**(k+1) + 1)
yield from (t//i for i in range(300, 30, -1) if t%i == 0)
print(list(islice(agen(), 33))) # Michael S. Branicky, Mar 26 2023
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Giovanni Resta, Feb 15 2006
EXTENSIONS
a(31) and beyond from Michael S. Branicky, Mar 26 2023
STATUS
approved