#######################################################################################################################################
#                                                                                                                                     #
#         N O M B R E S   K - F R I A B L E S   S U R   U N E   S P I R A L E  :                                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.NFRI.71.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20220924101324).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____K                        2

$Z                  setParam            _____Substitut                "$K_VIDE"

$Z                  saut
$Z                  echo                "PremierNombreEntier=$Part0"
$Z                  echo                "DernierNombreEntier=$PartN"
$Z                                      # Editions introduites le 20220925121636...                                                   #
$Z                  saut

$Z                  FilSTmpB            FnIvEaUx

$Z                  $xci/valeurs_prem$X                                                                                                 \
$Z                                      premiere=$Part0 derniere=$PartN                                                                 \
$Z                                      editer_diviseurs=VRAI                                                                           \
$Z                                      editer_nombres=VRAI                                                                             \
$Z                                      diviseurs_premiers=VRAI                                                                         \
$Z                                      multiplicite_diviseurs_premiers=FAUX                                                            \
$Z                                      editer_fonction=FAUX                                                                            \
$Z                                      editer_somme_diviseurs=FAUX                                                               |     \
$Z                  $SE                 -e "s/^.*=+\([$Alphabet_0_9]*\) *"'$/\1/'                                                       \
$Z                                                                                                  > $FnIvEaUx.1

$Z                  $CA                 $FnIvEaUx.1                                                                               |     \
$Z                  $xrv/IFLE.11$X                                                                                                      \
$Z                                      ne=0                                                                                            \
$Z                                      fichier1==                                                                                      \
$Z                                      fichier2=$_____K                                                                                \
$Z                                                                                                  > $FnIvEaUx.2

$Z                  $xrv/MUL2.11$X                                                                                                      \
$Z                                      ne=0                                                                                            \
$Z                                      fichier1=$FnIvEaUx.1                                                                            \
$Z                                      fichier2=$FnIvEaUx.2                                                                            \
$Z                                      formater=VRAI signe="$K_VIDE"                                                                   \
$Z                                                                                                  > $FnIvEaUx.3

$Z                  eval                "$CA                 $FnIvEaUx.3 |       $SE                 $_____Substitut"                   \
$Z                                                                                                  > $xTV/NIVEAUX
$Z                                      # ATTENTION : ci-dessus, il s'agit bien de '$xTV/NIVEAUX' ci-dessus et non pas de '$FnIvEaUx' #
$Z                                      # et ce a cause de 'v $xiirv/.PRIM.4.12.$U .xTV.NIVEAUX'...                                   #

$Z                  FilSTmpE            FnIvEaUx