cp's OEIS Frontend

A324541 Numbers that occur in range of A324580.

%I A324541 #15 Mar 10 2019 19:31:49
%S A324541 0,2,6,18,30,36,70,90,120,210,270,300,434,450,650,672,990,1050,1260,
%T A324541 1386,2142,2250,2310,2590,2940,3600,3990,4410,4642,4750,5978,6996,
%U A324541 7350,7500,7650,8190,9114,11880,12600,14058,15000,15050,15750,16170,18480,18522,21186,23100,23870,24750,25830,28224,30030,30870,31250,32830,35970,37114,42000
%N A324541 Numbers that occur in range of A324580.
%C A324541 Indexing begins from 0 because the term a(0) = 0 is a special case.
%C A324541 Sequence A324580 sorted into ascending order, with duplicate occurrences removed. The first such duplicate is 2250 = A324580(15) = 150*15 = A324580(18) = 125*18. The next is 5402250 = A324580(105) = A276086(105)*105 = A324580(125) = A276086(125)*125.
%C A324541 Terms after zero are the positions of nonzero terms in A324539.
%H A324541 Antti Karttunen, <a href="/A324541/b324541.txt">Table of n, a(n) for n = 0..702</a>
%H A324541 <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>
%H A324541 <a href="/index/Pri#primorial_numbers">Index entries for sequences related to primorial numbers</a>
%o A324541 (PARI)
%o A324541 A276086(n) = { my(i=0,m=1,pr=1,nextpr); while((n>0),i=i+1; nextpr = prime(i)*pr; if((n%nextpr),m*=(prime(i)^((n%nextpr)/pr));n-=(n%nextpr));pr=nextpr); m; };
%o A324541 A324539(n) = sumdiv(n,d,(d==A276086(n/d)));
%o A324541 for(n=1,oo,if(A324539(n)>0, print1(n, ", "))); \\ Print terms after zero.
%o A324541 (PARI)
%o A324541 \\ This program is better for computing many terms:
%o A324541 search_limit = 9699690;
%o A324541 A324580(n) = n*A276086(n);
%o A324541 A324541list(lim) = { my(s=Set([]),k); for(n=1,lim, k=A324580(n); if(k<=lim, s = setunion([k], s))); Vec(s); };
%o A324541 v324541 = A324541list(search_limit);
%o A324541 A324541(n) = if(!n,n,v324541[n]);
%Y A324541 Cf. A324540 (complement).
%Y A324541 Cf. A002110 (a subsequence), A276086, A324539, A324579, A324580.
%K A324541 nonn
%O A324541 0,2
%A A324541 _Antti Karttunen_, Mar 10 2019