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.

A343477 Numbers k whose representations in primorial base include each of the digits from 0 to d-1 exactly once, where d is the number of digits of k in primorial base.

This page as a plain text file.
%I A343477 #10 Apr 17 2021 03:58:31
%S A343477 0,2,10,13,14,52,79,80,95,100,103,104,328,352,535,536,559,560,659,688,
%T A343477 715,716,755,760,763,764,863,892,919,920,935,940,943,944,3118,3322,
%U A343477 3478,3502,5425,5426,5629,5630,5785,5786,5809,5810,7109,7318,7525,7526,7925
%N A343477 Numbers k whose representations in primorial base include each of the digits from 0 to d-1 exactly once, where d is the number of digits of k in primorial base.
%H A343477 Amiram Eldar, <a href="/A343477/b343477.txt">Table of n, a(n) for n = 1..10000</a>
%H A343477 Wikipedia, <a href="https://en.wikipedia.org/wiki/Mixed_radix#Primorial_number_system">Primorial number system</a>.
%e A343477 2 is a term since its primorial base representation is {1, 0}.
%e A343477 10, 13 and 14 are terms since their primorial base representations are {1, 2, 0}, {2, 0, 1} and {2, 1, 0}, respectively.
%t A343477 m = 6; bases = Reverse @ Prime @ Range[m]; max = Times @@ bases; primBase[n_] := IntegerDigits[n, MixedRadix[bases]]; q[n_] := Union[(pd = primBase[n])] == Range[0, Length[pd] - 1]; Select[Range[0, max], q]
%Y A343477 Cf. A049345, A235224, A343476.
%K A343477 nonn,base
%O A343477 1,2
%A A343477 _Amiram Eldar_, Apr 16 2021