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.
%I A074674 #12 Mar 27 2021 14:14:53 %S A074674 10,14,6,18,6,4,140,12,10,20,4,6,8,10,20,40,42,14,4,2,10,14,6,24,4,2, %T A074674 4,30,20,6,18,12,4,14,10,2,18,10,20,36,4,12,14,30,6,24,6,34,24,20,6,6, %U A074674 28,66,14,30,22,14,10,6,12,2,4,2,48,6,10,26,130,32,6,4,6,14,10,8,28,20,22 %N A074674 Differences between successive four-digit distinct-digit primes. %C A074674 There are exactly 510 four-digit primes with all distinct digits, so the sequence of differences is finite as well. %H A074674 Harvey P. Dale, <a href="/A074674/b074674.txt">Table of n, a(n) for n = 1..509</a> %e A074674 a(1)=10 because the first and second four-digit primes with all distinct digits are 1039, 1049 and difference between them is 10. %t A074674 se=Select[Range[1039, 9871, 2], Length[Union[IntegerDigits[ # ]]]==4&&PrimeQ[ # ]&]; Flatten[Table[{se[[i+1]]-se[[i]]}, {i, 509}]] %t A074674 Differences[Select[Prime[Range[169,1229]],Length[Union[ IntegerDigits[#]]] == 4&]] (* _Harvey P. Dale_, Oct 11 2015 *) %Y A074674 The first differences of the A074673. For 3-digit distinct-digit primes, see A074675, A074676. For 5-digit distinct-digit primes, see A074671, A074672. For 6-digit distinct-digit primes, see A074669, A074670. For 7-digit distinct-digit primes, see A074667, A074668. For 8-digit distinct-digit primes, see A074665, A074666. %K A074674 fini,full,nonn,base %O A074674 1,1 %A A074674 _Zak Seidov_, Aug 30 2002