This is documentation for Mathematica 7, which was
based on an earlier version of the Wolfram Language.
View current documentation (Version 11.1)

FlattenAt

FlattenAt[list, n]
flattens out a sublist that appears as the nth element of list. If n is negative, the position is counted from the end.
FlattenAt[expr, {i, j, ...}]
flattens out the part of expr at position {i, j, ...}.
FlattenAt[expr, {{i1, j1, ...}, {i2, j2, ...}, ...}]
flattens out parts of expr at several positions.
Flatten at position 2:
Flatten at positions 2 and 4:
Flatten at position 2:
In[1]:=
Click for copyable input
Out[1]=
 
Flatten at positions 2 and 4:
In[1]:=
Click for copyable input
Out[1]=
New in 2