İndüksiyonla n^3 > 2^n eşitsizliğini sağlayan pozitif tamsayı n'leri tespit edin; kanıtı Mathematica ile gösterin.

2≤n≤9 aralığı geçerlidir. Örneğin: Select[Range[20],#^3>2^#&] komutu {2,3,4,5,6,7,8,9} verir.

n=2,3,4,5,6,7,8,9. Mathematica’da Table[{n,n^3>2^n},{n,1,20}] kullanıp Select[#[[2]]&] ile true olan n’leri seçerek bu sonuç elde edilir.