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

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

Author

Michel Marcus, Jul 09 2021

Keywords

• nonn
• base

Comments

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

Links

• Michel Marcus, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A136634, A346113.

Programs

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;