login
n+floor(nr/t)+floor(ns/t), where r=log(2), s=log(3), t=log(5).
4

%I #7 Mar 30 2012 18:57:17

%S 1,3,6,7,10,12,14,16,18,20,22,25,26,29,31,32,35,37,39,41,44,46,47,50,

%T 52,54,56,59,60,62,65,66,69,71,73,75,77,79,81,84,85,88,90,92,94,96,99,

%U 100,103,105,106,109,111,113,115,118,119,121,124,125,128,130,133,134,136,139,140,143,145,147,149,152,153,155,158,159,162,164,166,168,170,172,174,177,179,181,183,185,187,189,192,193,196,198,199,202,204,206,208,211,212,214,217,218,221,223,226,227,229,232,233,236,238,240,242,244,246,248,251,252

%N n+floor(nr/t)+floor(ns/t), where r=log(2), s=log(3), t=log(5).

%C See A184812.

%t r=Log[2]; s=Log[3]; t=Log[5];

%t a[n_]:=n+Floor [n*s/r]+Floor[n*t/r];

%t b[n_]:=n+Floor [n*r/s]+Floor[n*t/s];

%t c[n_]:=n+Floor[n*r/t]+Floor[n*s/t];

%t Table[a[n], {n, 1, 120}] (* A184871 *)

%t Table[b[n], {n, 1, 120}] (* A184872 *)

%t Table[c[n], {n, 1, 120}] (* A184873 *)

%Y Cf. A184871, A184872, A184876 (primes in A184873).

%K nonn

%O 1,2

%A _Clark Kimberling_, Jan 23 2011

%E Name corrected by Harvey P. Dale, Jan. 26 2011