%I #8 Jul 10 2021 14:42:48

%S 5419,558227,102539,201031,30553,76597,619,15971,106174,313,381319,

%T 13627,9137,1951,1559,64157,5167,64919,237163,13327,165829,8698,4003,

%U 135211,68674,16581,38667,547,7841,120397,16487,39367,2441,100649,94889,12157,74093,9466,4673

%N a(n) is the least integer k such that k*prime(n) is in A346113, or 0 if no such k exists.

%C a(n) = 1 for prime(n) in A136634.

%H Michel Marcus, <a href="/A346177/b346177.txt">Table of n, a(n) for n = 1..1000</a>

%o (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

%o a(n) = my(p=prime(n), k=1); while (! isok(k*p), k++); k;

%Y Cf. A136634, A346113.

%K nonn,base

%O 1,1

%A _Michel Marcus_, Jul 09 2021