login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A230085 Smallest of four consecutive primes whose product of digits is equal and nonzero. 0
336737123, 812444239, 1731191219, 2187575239, 2549315123, 2672459219, 2721498343, 2778476123, 2781452239, 2924114819, 2925926819, 3232115219, 3441686219, 3579455219, 3617846123, 3755345219, 3943951637 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
EXAMPLE
336737123 is in the sequence because 336737123, 336737161, 336737213 and 336737231 are consecutive primes and the product of the digits of each = 47628.
MATHEMATICA
a = {}; m = 1; s = 1; Do[If[(y = Apply[Times, IntegerDigits[x = Prime[n]]]) == s && s != 0, m = m + 1; If[m > 3, AppendTo[a, Prime[n - 3]]], m = 1]; s = y, {n, 1, 200000000}]; a
pdeQ[{a_, b_, c_, d_}]:=Module[{u=Union[Times@@@(IntegerDigits/@{a, b, c, d})]}, Length[ u] ==1&&u[[1]]>0]; Transpose[Select[Partition[Prime[Range[ 19*10^7]], 4, 1], pdeQ]][[1]] (* Harvey P. Dale, Jan 27 2015 *)
CROSSREFS
Sequence in context: A271112 A337385 A233703 * A204337 A113739 A159448
KEYWORD
nonn,base
AUTHOR
Shyam Sunder Gupta, Oct 08 2013
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 18 22:56 EDT 2024. Contains 370952 sequences. (Running on oeis4.)