|
%I #10 Jul 30 2020 00:31:06
%S 1,2,3,4,5,6,7,8,9,12,15,24,25,35,36,45,48,72,75,125,135,140,144,175,
%T 216,225,250,270,280,288,375,384,432,540,625,675,864,875,1080,1125,
%U 1250,1296,1350,1575,1620,1680,1728,1750,1800,1875,1944,2160,2250,2500
%N Numbers k such that A334676(k) = 1.
%C All terms are 7-smooth (A002473).
%C This sequence is infinite as it contains the powers of 5.
%H Rémy Sigrist, <a href="/A336580/b336580.txt">Table of n, a(n) for n = 1..10000</a>
%H Rémy Sigrist, <a href="/A336580/a336580.png">Illustration of terms < 1000</a>
%H Rémy Sigrist, <a href="/A336580/a336580.gp.txt">PARI program for A336580</a>
%e Regarding the number 540:
%e - 540 / 4 = 135,
%e - 135 / 3 = 45,
%e - 45 / 5 = 9,
%e - 9 / 9 = 1,
%e - so A334676(540) = 1
%e - and 540 belongs to this sequence.
%o (PARI) for (n=1, #keep=vector(2500, n, n==1), if (keep[n], print1 (n ", "); for (d=2, min(9, #keep\n), if (setsearch (Set(digits(nd=n*d)), d), keep[nd]=1))))
%o (PARI) See Links section.
%Y Cf. A000351, A002473, A334676.
%K nonn,base
%O 1,2
%A _Rémy Sigrist_, Jul 26 2020
|
