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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A001103 Numbers n such that (n / product of digits of n) is 1 or a prime. 2
1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 15, 24, 36, 115, 175, 212, 624, 735, 816, 1115, 1184, 1197, 1416, 2144, 3171, 3276, 3915, 6624, 7119, 8832, 9612, 11133, 11212, 11331, 12128, 12216, 12768, 13131, 21184, 21728, 24912, 31113, 31488, 32172, 32616, 35175 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Klaus Brockhaus, Table of n, a(n) for n = 1..448 (terms < 10^8)

MAPLE

P:=proc(n) local a; a:=convert(convert(n, base, 10), `*`);

if a>0 then a:=n/a; if frac(a)=0 then if isprime(a) then n;

fi; fi; fi; end: seq(P(i), i=1..10^5); # Paolo P. Lava, Feb 05 2018

MATHEMATICA

okQ[n_] := Block[{p = Times @@ IntegerDigits[n]}, n == p || PrimeQ[n/p]]; Select[ Range[36000], okQ]

PROG

(MAGMA) IsA001103:=func< n | p ne 0 and n mod p eq 0 and (q eq 1 or IsPrime(q)) where q is (p eq 0 select 0 else n div p) where p is &*Intseq(n) >; [ n: n in [1..40000] | IsA001103(n) ]; // Klaus Brockhaus, Jan 24 2011

(Haskell)

a001103 n = a001103_list !! (n-1)

a001103_list = filter f a052382_list where

   f x = m == 0 && (x' == 1 || a010051 x' == 1) where

       (x', m) = divMod x $ a007954 x

-- Reinhard Zumkeller, Nov 02 2011

CROSSREFS

Cf. A007954, A066577.

Cf. A052382, A010051, A007602, A188642.

Sequence in context: A030721 A190296 A143288 * A265730 A304248 A147591

Adjacent sequences:  A001100 A001101 A001102 * A001104 A001105 A001106

KEYWORD

nonn,base,easy,nice

AUTHOR

N. J. A. Sloane, Bill Moran (moran1(AT)llnl.gov)

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 November 18 17:45 EST 2019. Contains 329287 sequences. (Running on oeis4.)