map{$p[$_]=$.;$.=$p[$_-3*$_*$_>>1]-$.for-9..8,1;print"p($_)=$.
"}++$...100