A046396 Palindromes which are the product of 6 distinct primes.
222222, 282282, 474474, 555555, 606606, 646646, 969969, 2040402, 2065602, 2206022, 2417142, 2646462, 2673762, 2875782, 3262623, 3309033, 4179714, 4192914, 4356534, 4585854, 4912194, 5021205, 5169615, 5174715, 5578755
Offset: 1
Crossrefs
Programs
-
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 *)
-
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
Formula
Extensions
Name edited
Comments