login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

The smallest positive number that has not yet appeared that is a multiple of the smallest prime that does not divide n.
2

%I #11 Jan 24 2024 08:29:24

%S 2,3,4,6,8,5,10,9,12,15,14,20,16,18,22,21,24,25,26,27,28,30,32,35,34,

%T 33,36,39,38,7,40,42,44,45,46,50,48,51,52,54,56,55,58,57,60,63,62,65,

%U 64,66,68,69,70,75,72,78,74,81,76,49,80,84,82,87,86,85,88,90,92,93,94,95,96,99,98

%N The smallest positive number that has not yet appeared that is a multiple of the smallest prime that does not divide n.

%C The sequence is conjectured to be a permutation of the positive integers.

%C The empty product 1 never appears - _Michael De Vlieger_, Jan 24 2024

%H Scott R. Shannon, <a href="/A369271/b369271.txt">Table of n, a(n) for n = 1..10000</a>

%F a(A002110(k-1)) = the k-th prime.

%e a(7) = 10 as 2 is the smallest prime that does not divide 7, and 10 = 2*5 is the smallest multiple of 2 that has not yet appeared.

%t nn = 2^10;

%t c[_] := False; m[_] := 1;

%t f[x_] := Block[{q = 2}, While[Divisible[x, q], q = NextPrime[q]]; q];

%t Do[While[c[Set[k, #*m[#]]], m[#]++] &[f[i]];

%t Set[{a[i], c[k]}, {k, True}], {i, nn}];

%t Array[a, nn] (* _Michael De Vlieger_, Jan 24 2024 *)

%Y Cf. A369272, A351495, A053669, A002110.

%K nonn

%O 1,1

%A _Scott R. Shannon_, Jan 18 2024