cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A346177 #8 Jul 10 2021 14:42:48
%S A346177 5419,558227,102539,201031,30553,76597,619,15971,106174,313,381319,
%T A346177 13627,9137,1951,1559,64157,5167,64919,237163,13327,165829,8698,4003,
%U A346177 135211,68674,16581,38667,547,7841,120397,16487,39367,2441,100649,94889,12157,74093,9466,4673
%N A346177 a(n) is the least integer k such that k*prime(n) is in A346113, or 0 if no such k exists.
%C A346177 a(n) = 1 for prime(n) in A136634.
%H A346177 Michel Marcus, <a href="/A346177/b346177.txt">Table of n, a(n) for n = 1..1000</a>
%o A346177 (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 A346177 a(n) = my(p=prime(n), k=1); while (! isok(k*p), k++); k;
%Y A346177 Cf. A136634, A346113.
%K A346177 nonn,base
%O A346177 1,1
%A A346177 _Michel Marcus_, Jul 09 2021