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,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

Cf. A136634, A346113.

Sequence in context: A105654 A124410 A211775 * A363782 A116894 A124629

Adjacent sequences: A346174 A346175 A346176 * A346178 A346179 A346180

Keyword

nonn,base

Author

Michel Marcus, Jul 09 2021

Status

approved