PARI/GP уверяет нас со всей ответственностью, что все пятизначные числа смехосоставные.
Для истории, функция PARI/GP которая возвращает "1" если число смехосоставное и "0" если нет:
Код:
Ktina128885 =
(n)->my(v=digits(n),len=#v);if(n<10,return(0));for(j=1,len-1,for(i=1,len-j,if(ispseudoprime(fromdigits(v[i..i+j])),,return(1))));return(0)
Использование:
Код:
? Ktina128885(1)
%1 = 0
? Ktina128885(8)
%2 = 0
? Ktina128885(11)
%3 = 0
? Ktina128885(12)
%4 = 1
? Ktina128885(97)
%5 = 0
? Ktina128885(673)
%6 = 0
? Ktina128885(9719)
%7 = 0
? Ktina128885(97319)
%8 = 1