|
%I #11 Sep 07 2014 13:24:57
%S 17,28,3,17,4,47,7,7,54,47,159,1610
%N 5-adic valuation of A217407.
%C See main sequence, A217407.
%e A217407=(3^35)*(5^17), so this sequence's first term is 17.
%o (PARI) prDigits(n)=my(d=digits(n), v=vector(10)); for(i=1, #d, v[d[i]+1]++); for(i=1, 10, if(!isprime(v[i]), return(0))); 1
%o list(lim)=my(v=List(), t); for(a=0, log(lim+.5)\log(5), t=5^a; while(t<=lim, if(prDigits(t), listput(v, t)); t*=3)); apply(k -> valuation(k,5), vecsort(Vec(v))) \\ _Charles R Greathouse IV_, Sep 19 2013
%Y Cf. A217407, A217408.
%K nonn,base,more
%O 1,1
%A _James G. Merickel_, Oct 02 2012
|
