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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A030086 Primes such that digits of p do not appear in p^2. 3

%I

%S 2,3,7,17,29,47,53,59,67,79,157,173,257,307,313,349,353,359,409,449,

%T 467,547,557,577,659,673,677,739,787,853,929,1447,1607,1747,2029,2087,

%U 2113,2237,3257,3359,3467,3533,3559,3767,3779,4253,4337,4787,5333,5557,5659

%N Primes such that digits of p do not appear in p^2.

%C Primes of sequence A029783. - _Michel Marcus_, Jan 04 2015

%H Harvey P. Dale and Vincenzo Librandi, <a href="/A030086/b030086.txt">Table of n, a(n) for n = 1..676</a> (first 501 terms from Harvey P. Dale)

%e 2 and 2^2=4 have no digits in common, hence 2 is in the sequence.

%t Select[Prime[Range[700]],Intersection[IntegerDigits[#],IntegerDigits[ #^2]] == {}&] (* _Harvey P. Dale_, Oct 02 2014 *)

%o (PARI) lista(nn) = {forprime (n=1, nn, if (#setintersect(Set(vecsort(digits(n^2))), Set(vecsort(digits(n)))) == 0, print1(n, ", ")); ); } \\ _Michel Marcus_, Jan 04 2015

%Y Cf. A029783 (numbers n such that digits of n are not present in n^2).

%Y Cf. similar sequences listed in A253574.

%K nonn,base

%O 1,1

%A _Patrick De Geest_, Dec 11 1999

%E Changed offset from 0 to 1 from _Vincenzo Librandi_, Jan 04 2015

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 17 03:06 EST 2019. Contains 329216 sequences. (Running on oeis4.)