cp's OEIS Frontend

A111484 Triangular numbers all of whose digits are nonprimes.

%I A111484 #8 May 13 2013 01:48:35
%S A111484 0,1,6,10,66,91,190,406,496,666,861,946,990,1081,1891,4186,6441,8001,
%T A111484 8646,8911,9180,10011,10440,14196,16110,19110,19900,40186,41041,41616,
%U A111484 49141,64980,66066,69006,80601,81406,81810,84666,88410,90100,91806
%N A111484 Triangular numbers all of whose digits are nonprimes.
%o A111484 (Perl) my $n = 0, $t = 0, $i = 0;
%o A111484 for (; $n < 6293912; $n++, $t += $n) {
%o A111484  if ($t =~ m/^[014689]+$/) {
%o A111484   $i++;
%o A111484   print("$i $t\n");
%o A111484  }
%o A111484 } # _Charles R Greathouse IV_, Dec 17 2010
%Y A111484 Cf. A000217, A002808, A084984.
%K A111484 base,easy,nonn
%O A111484 1,3
%A A111484 _Jonathan Vos Post_, Nov 15 2005