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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A107624 Numbers n such that every digit of n and n-th prime contains a loop (only digits 0,4,6,8,9 in n and n-th prime). 3
80, 600, 669, 884, 4646, 4666, 4806, 4980, 6480, 6666, 6806, 6849, 8448, 8688, 9489, 9494, 40046, 40664, 40804, 49848, 64444, 64466, 68864, 68994, 69008, 69060, 69084, 69089, 69090, 69899, 440986, 440999, 444049, 444080, 464446, 464496, 464499, 466466, 466844 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Corresponding primes in A107625. Cf. A001744 Every digit contains a loop.

LINKS

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

MATHEMATICA

Do[id=Union[IntegerDigits[Prime[n]], IntegerDigits[n]]; If[Count[id, 1]+Count[id, 2]+Count[id, 3]+Count[id, 5]+Count[id, 7]==0, Print[n]], {n, 10000}]

PROG

(PARI) is_a001744(n) = #setintersect(vecsort(digits(n), , 8), [1, 2, 3, 5, 7])==0

is(n) = is_a001744(n) && is_a001744(prime(n)) \\ Felix Fröhlich, Sep 09 2019

CROSSREFS

Cf. A001744, A107625.

Sequence in context: A174077 A200432 A233351 * A068782 A255478 A204342

Adjacent sequences:  A107621 A107622 A107623 * A107625 A107626 A107627

KEYWORD

nonn,base,dumb

AUTHOR

Zak Seidov, May 18 2005

EXTENSIONS

More terms from Felix Fröhlich, Sep 09 2019

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
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 17 16:42 EDT 2019. Contains 328120 sequences. (Running on oeis4.)