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.

A074674 Differences between successive four-digit distinct-digit primes.

This page as a plain text file.
%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