OFFSET
1,1
COMMENTS
This sequence is infinite (see A372180).
EXAMPLE
a(2) = 78 is the smallest number whose symmetric representations of sigma has unimodal pattern 1210121.
a(4) = 12246 is the smallest number whose symmetric representations of sigma has unimodal pattern 121012101210121.
MATHEMATICA
(* function seqQ[ ] is defined in A372180 *)
smallest[s_, m_] := NestWhile[#+1&, s, !seqQ[#, m]&]
a372181[n_] := Rest[FoldList[smallest[#1, #2]&, 1, Range[n]]]
a372181[9] (* long computation time *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Hartmut F. W. Hoft, Apr 21 2024
STATUS
approved