OFFSET
1,1
LINKS
Chris K. Caldwell and G. L. Honaker, Jr., Prime Curios! 76
EXAMPLE
a(1) = 76 because 76 = 2*2*19, and there is exactly one loop on each side of the equals sign.
a(2) = 166 because 166 = 2*83, and there are exactly two loops on each side of the equals sign, etc. Note that '8' contains two loops.
MATHEMATICA
cntLo[n_] := Plus @@ ({1, 0, 0, 0, 0, 0, 1, 0, 2, 1}[[IntegerDigits[n] + 1]]); cntF[n_] := Plus @@ (cntLo /@ First /@ FactorInteger[n]); a[n_] := Block[{k=1}, While[ cntLo[k] != n || cntF[k] != n || PrimeQ[k], k++]; k]; Array[a, 8] (* Giovanni Resta, Nov 18 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
G. L. Honaker, Jr., Nov 16 2019
EXTENSIONS
a(5)-a(10) from Chuck Gaydos
a(11)-a(24) from Giovanni Resta, Nov 18 2019
STATUS
approved