OFFSET
1,1
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..300
EXAMPLE
The sequence of rows of A296150 indexed by the terms of this sequence begins: (1), (21), (211), (221), (321), (3211), (3221), (3321), (32211), (4321), (33211), (322111), (43211).
MATHEMATICA
normalQ[m_]:=Union[m]==Range[Max[m]];
Select[Range[10000], And[normalQ[PrimePi/@FactorInteger[#][[All, 1]]], normalQ[FactorInteger[#][[All, 2]]]]&]
PROG
(PARI) ok(n)={my(f=factor(n), p=f[, 1], e=vecsort(f[, 2], , 8)); n > 1 && #p==primepi(p[#p]) && #e==e[#e]} \\ Andrew Howroyd, Aug 26 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 21 2018
STATUS
approved