cp's OEIS Frontend

A363457 Positions of products of distinct primorial numbers (A129912) in the sequence of products of primorial numbers (A025487).

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