OFFSET
1,2
EXAMPLE
PROG
(Magma) alt:=func<n| forall{i:i in [1..#Intseq(n)-1]|Abs(Intseq(n)[i+1]-Intseq(n)[i]) eq 1}>; a:=[]; for n in [1..37] do k:=1; while #[d:d in Divisors(k)|alt(d)] ne n do k:=k+1; end while; Append(~a, k); end for; a;
(PARI) diff(v)=vector(#v-1, i, v[i+1]-v[i]);
is(n)=if(n>9, Set(abs(diff(digits(n))))==[1], n>0);
a(n) = my(k=1); while (sumdiv(k, d, is(d)) != n, k++); k; \\ Michel Marcus, Jul 11 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Marius A. Burtea, Jul 11 2022
STATUS
approved