login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A073064 Primes with non-distinct digits. 2
11, 101, 113, 131, 151, 181, 191, 199, 211, 223, 227, 229, 233, 277, 311, 313, 331, 337, 353, 373, 383, 433, 443, 449, 499, 557, 577, 599, 661, 677, 727, 733, 757, 773, 787, 797, 811, 877, 881, 883, 887, 911, 919, 929, 977, 991, 997, 1009, 1013, 1019 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..50.

FORMULA

A000040 INTERSECT A109303. - R. J. Mathar, May 01 2008

EXAMPLE

a(1)=11 because 11 is the first prime not all digits of which are distinct; a(2)=101 because 101 is the second prime not all digits of which are distinct.

MAPLE

A055642 := proc(n) max(ilog10(n)+1, 1) ; end: A043537 := proc(n) nops(convert(convert(n, base, 10), set)) ; end: isA109303 := proc(n) RETURN( A055642(n) > A043537(n) ) ; end: isA073064 := proc(n) RETURN(isprime(n) and isA109303(n) ) ; end: for n from 1 to 1019 do if isA073064(n) then printf("%d, ", n) ; fi ; od: # R. J. Mathar, May 01 2008

MATHEMATICA

ta=IntegerDigits[Prime[Range[1000]]]; ta2=Table[Length[ta[[i]]]>Length[Union[ta[[i]]]], {i, 1000}]; Prime[Flatten[Position[ta2, True]]]

CROSSREFS

Cf. A030291, A073069.

Sequence in context: A117697 A091366 A158051 * A155075 A176179 A176196

Adjacent sequences:  A073061 A073062 A073063 * A073065 A073066 A073067

KEYWORD

easy,base,nonn

AUTHOR

Zak Seidov, Aug 24 2002

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy .

Last modified March 30 18:30 EDT 2017. Contains 284302 sequences.