OFFSET
1,1
COMMENTS
The original definition "Palindromes with exactly 6 distinct prime factors" was misleading. For example, the number 414414 = 2 * 3^2 * 7 * 11 * 13 * 23 has exactly 6 distinct prime factors, although the factor 3 occurs twice. But the listed terms show that it is not in this sequence. See sequence A373466 for the variant corresponding to that definition. - M. F. Hasler, Jun 06 2024
FORMULA
MATHEMATICA
Select[Range[6*10^6], #==IntegerReverse[#]&&PrimeNu[#]==PrimeOmega[#]==6&] (* The program uses the IntegerReverse function from Mathematica version 10 *) (* Harvey P. Dale, Mar 17 2016 *)
PROG
(PARI) A046332_upto(N, start=1, num_fact=6)={ my(L=List()); while(N >= start = nxt_A002113(start), omega(start)==num_fact && issquarefree(start) && listput(L, start)); L} \\ M. F. Hasler, Jun 06 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
EXTENSIONS
Name edited
STATUS
approved