A381032 The radix prime of the least significant digit > 1 in the primorial base expansion of n, or 1 if there is no such digit.
1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 3, 3, 5, 5, 5, 5, 3, 3, 5, 5, 5, 5, 3, 3, 5, 5, 5, 5, 3, 3, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 3, 3, 5, 5, 5, 5, 3, 3, 5, 5, 5, 5, 3, 3, 5, 5, 5, 5, 3, 3, 7, 7, 7, 7, 3, 3, 7, 7, 7, 7, 3, 3, 5, 5, 5, 5, 3, 3, 5, 5, 5, 5, 3, 3, 5, 5, 5, 5, 3, 3, 7, 7, 7, 7, 3, 3, 7, 7, 7, 7, 3, 3, 5, 5, 5, 5, 3, 3, 5
Offset: 0
Keywords
Links
Crossrefs
Programs
-
PARI
A381032(n) = { my(p=2); while(n, if((n%p)>1, return(p)); n = n\p; p = nextprime(1+p)); (1); };