%I A116444
%S A116444 1,3,9,11,13,21,33,39,63,77,91,99,137,219,411,657,9091,29703,89109,
%T A116444 909091,5882353,10989011,12145749,12987013,14354067,20979021,22556391,
%U A116444 32967033,36437247,38961039,43062201,52631579,62937063,67669173
%N A116444 Numbers n which when sandwiched between two 9's give a multiple of n.
%e A116444 411 belongs since 94119 is a multiple of 411 (411*229).
%t A116444 f[k_, d_] := Flatten@Table[Select[Divisors[k*(10^(i + 1) + 1)], IntegerLength[
# ] == i &], {i, d}]; f[9, 8] (*Chandler*)
%o A116444 (PARI)for(d=1,10,fordiv(9*10^(d+1)+9,a,if(#Str(a)==d,print1(a", "))))
/*Fuller*/
%Y A116444 Cf. A116436-A116443.
%Y A116444 Sequence in context: A059868 A101735 A101620 this_sequence A065136 A075720
A106373
%Y A116444 Adjacent sequences: A116441 A116442 A116443 this_sequence A116445 A116446
A116447
%K A116444 base,nonn
%O A116444 1,2
%A A116444 Giovanni Resta (g.resta(AT)iit.cnr.it), Feb 15 2006
%E A116444 Corrected by Martin Fuller (martin_n_fuller(AT)btinternet.com), May 10
2007
|