A261206 Numbers j such that ceiling(j^(1/k)) divides j for all integers k >= 1.
1, 2, 4, 6, 12, 36, 132, 144, 156, 900, 3600, 4032, 7140, 18360, 44100, 46440, 4062240, 9147600, 999999000000
Offset: 1
Programs
-
PARI
is(n) = my(k,t); if(n==1,return(1)); if(n%2,return(0)); k=2; while( (t=ceil((n-.5)^(1/k)))>2, if(n%t,return(0)); k++); 1 n=1;while(n<10^5,if(is(n),print1(n,", "));n++) /* Able to generate terms < 10^5 */ \\ Derek Orr, Aug 12 2015
Comments