login
A346177
a(n) is the least integer k such that k*prime(n) is in A346113, or 0 if no such k exists.
1
5419, 558227, 102539, 201031, 30553, 76597, 619, 15971, 106174, 313, 381319, 13627, 9137, 1951, 1559, 64157, 5167, 64919, 237163, 13327, 165829, 8698, 4003, 135211, 68674, 16581, 38667, 547, 7841, 120397, 16487, 39367, 2441, 100649, 94889, 12157, 74093, 9466, 4673
OFFSET
1,1
COMMENTS
a(n) = 1 for prime(n) in A136634.
LINKS
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
Sequence in context: A105654 A124410 A211775 * A363782 A116894 A124629
KEYWORD
nonn,base
AUTHOR
Michel Marcus, Jul 09 2021
STATUS
approved