OFFSET
1,1
COMMENTS
a(n) = 1 for prime(n) in A136634.
LINKS
Michel Marcus, Table of n, a(n) for n = 1..1000
PROG
(PARI) isok(k) = {my(t = numdiv(k)); for (b=2, 10, my(d=digits(k, b)); if (numdiv(fromdigits(Vecrev(d), b)) != t, return (0)); ); return(1); } \\ A346113
a(n) = my(p=prime(n), k=1); while (! isok(k*p), k++); k;
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Marcus, Jul 09 2021
STATUS
approved