login
A331029
Least integer of each composite prime signature where primes ending in 1 or 9 are treated distinctly from those ending in 3 or 7.
3
1, 3, 9, 11, 21, 27, 33, 63, 81, 99, 121, 189, 209, 231, 243, 273, 297, 363, 441, 567, 627, 693, 729, 819, 891, 1089, 1323, 1331, 1701, 1881, 2079, 2187, 2299, 2457, 2541, 2673, 3003, 3267, 3969, 3993, 4389, 4641, 4851, 5103, 5643, 5733, 6061, 6237, 6561, 6897
OFFSET
1,2
COMMENTS
This sequence is analogous to A025487. The two primes 2 and 5 are ignored and the remainder are divided into two distinct classes depending on the final digit of the prime. A combined prime signature is then created from the prime signatures of the two classes of prime.
Consider the problem of finding the smallest number having n divisors ending with 1 or 9 (sequence A085645). Solutions must lie in this sequence since numbers with the same composite prime signature as defined here will have the same number of divisors ending with 1 or 9.
Primes ending in either 1 or 9 are 11, 19, 29, 31, 41, 59, ... (A045468).
Primes ending in either 3 or 7 are 3, 7, 13, 17, 23, 37, ... (A097957).
The partial products of these two sequences form two sequences analogous to the primorial numbers (11, 11*19, 11*19*29, ... and 3, 3*7, 3*7*13, ...). In the same manner that A025487 can be defined as products of primorial numbers, an alternative description of this sequence is that it is the set of all products of the two primorial analogues.
LINKS
EXAMPLE
Primes in this sequence are 3 and 11 because these are the smallest primes in the two classes.
Semiprimes in this sequence are 9 = 3^2, 21 = 3*7, 33 = 3*11, 121 = 11^2, 209 = 11*19 because 3, 7 are the smallest primes ending with either 3 or 7 and 11, 19 are the smallest primes ending with either 1 or 9.
PROG
(PARI)
GenS(lim, pred)={my(L=List(), S=[1]); forprime(p=2, oo, if(pred(p), listput(L, S); my(pp=vector(logint(lim, p), i, p^i)); S=concat([k*pp[1..min(if(k>1, my(f=factor(k)[, 2]); f[#f], oo), logint(lim\k, p))] | k<-S]); if(!#S, return(Set(concat(L)))) ))}
Merge(s1, s2, lim)={Set(concat(vector(#s1, i, [t | t<-s1[i]*s2, t<=lim])))}
lista331029(lim)={Merge(GenS(lim, k->abs(k%10-5)==2), GenS(lim, k->abs(k%10-5)==4), lim)}
{ lista331029(10^4) }
CROSSREFS
Cf. A025487, A045468 (primes ending in 1 or 9), A085645, A097957 (primes ending in 3 or 7), A331082.
Sequence in context: A179867 A032671 A370918 * A105949 A302422 A032665
KEYWORD
nonn,base
AUTHOR
Andrew Howroyd, Jan 07 2020
STATUS
approved