OFFSET
1,1
MATHEMATICA
tnpQ[n_]:=Module[{p=FromDigits/@Rest[Permutations[IntegerDigits[n]]], q}, q= DeleteCases[ p, _?(IntegerLength[#]!=IntegerLength[n]&)]; Count[q, _?(OddQ[ Sqrt[8#+1]]&)]>0]; Select[Accumulate[Range[200]], tnpQ]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Offset set to 1 by Sean A. Irvine, Aug 20 2020
STATUS
approved