|
%I #7 Jun 03 2023 07:27:29
%S 1,2,4,6,9,13,20,22,27,29,43,54,55,66,72,89,93,112,114,123,140,147,
%T 150,175,186,223,232,242,246,274,279,285,290,332,371,376,425,433,439,
%U 442,488,500,518,535,539,570,619,624,656,718,747,761,783,789,816,831,860
%N Positions of products of distinct primorial numbers (A129912) in the sequence of products of primorial numbers (A025487).
%C Numbers k such that A025487(k) is a term of A129912.
%C Numbers k such that A051282(k) = A363455(k).
%C What is the asymptotic behavior of this sequence? Empirically, it seems that a(n) ~ A * n^c, where A and c are constants.
%H Amiram Eldar, <a href="/A363457/b363457.txt">Table of n, a(n) for n = 1..10000</a>
%F A025487(a(n)) = A129912(n).
%t lps = Cases[Import["https://oeis.org/A025487/b025487.txt", "Table"], {_, _}][[;; , 2]];
%t prod = Cases[Import["https://oeis.org/A129912/b129912.txt", "Table"], {_, _}][[;; , 2]];
%t Position[lps, #] & /@ prod // Flatten
%Y Cf. A002110, A025487, A051282, A129912, A363455.
%K nonn
%O 1,2
%A _Amiram Eldar_, Jun 03 2023
|
