OFFSET
1,1
COMMENTS
LINKS
EXAMPLE
MATHEMATICA
Block[{b = MixedRadix[Reverse@ Prime@ Range@ 12]}, Position[#, _?(# > 1 &)][[All, 1]] &@ Array[Function[k, Times @@ Map[#1^Floor[#2/#1] & @@ # &, FactorInteger[#]] &@ If[# < 2, 0, # Total[#2/#1 & @@@ FactorInteger[#]] ] &@ Abs[Times @@ Power @@@ # &@ Transpose@ {Prime@ Range@ Length@ k, Reverse@ k}]]@ IntegerDigits[#, b] &, 500]] (* Michael De Vlieger, Mar 12 2021 *)
PROG
(PARI) isA342018(n) = (A342017(n)>1);
CROSSREFS
Not a subsequence of A342006.
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 04 2021
EXTENSIONS
Name changed by Antti Karttunen, Mar 12 2021
STATUS
approved