cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A140501 Ten-digit numbers with all distinct digits such that the string formed by the last k digits is divisible by k for any k <= 10.

This page as a plain text file.
%I A140501 #12 Mar 08 2015 18:49:35
%S A140501 9123567480,9123675840,9123756480,9126573840,9132576840,9132657480,
%T A140501 9132765840,9135648720,9135726840,9138546720,9138675240,9147528360,
%U A140501 9153276840,9153672480,9153768240,9156237840,9156348720,9162573480
%N A140501 Ten-digit numbers with all distinct digits such that the string formed by the last k digits is divisible by k for any k <= 10.
%H A140501 Tanya Khovanova, Jun 29 2008, <a href="/A140501/b140501.txt">Table of n, a(n) for n = 1..202</a> (full sequence)
%H A140501 Tanya Khovanova, <a href="http://blog.tanyakhovanova.com/?p=31">A Very Special Ten-Digit Number</a>
%e A140501 9123567480 is in this sequence, because 80/2 = 40, 480/3 = 160, 7480/4 = 1870, 67480/5 = 13496, 567480/6 = 94580, 3567480/7 = 509640, 23567480/8 = 2945935, 123567480/9 = 13729720, 9123567480/10 = 912356748.
%t A140501 Map[FromDigits, Select[Permutations[{0, 1, 2, 3, 4, 5, 6, 7, 8, 9}], #[[1]] == 9 && Mod[FromDigits[{#[[8]], #[[9]], #[[10]]}], 120] == 0 && Mod[ #[[5]] + #[[6]] + #[[7]], 3] == 0 && Mod[FromDigits[Take[ #, -7]], 7] == 0 &]]
%K A140501 fini,full,nonn,base
%O A140501 1,1
%A A140501 _Tanya Khovanova_, Jun 29 2008
%E A140501 Edited by _Charles R Greathouse IV_, Aug 02 2010