A329026 Numbers k such that k = Product(p_j^e_j) = concatenation(pi(p_j)), where pi = A000720.
12, 14, 2127, 1232495490
Offset: 1
Examples
2127 is a term because 2127 = 3 * 709 = prime(2) * prime(127) = concat(2, 127).
Programs
-
Mathematica
a[n_] := FromDigits[Flatten@IntegerDigits@(PrimePi[#[[1]]] & /@ FactorInteger[n])]; Select[Range[2200], a[#] == # &]
Extensions
a(4) from Giovanni Resta, Nov 04 2019
Comments