OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
A052423(a(n)) = 1. - Reinhard Zumkeller, Apr 14 2014
a(n) ~ n. In fact a(n) = n + O(n^(log 5/log 10)). - Charles R Greathouse IV, Nov 01 2014
EXAMPLE
All numbers with at least one digit equal to 1 are here.
MATHEMATICA
Do[s=Apply[GCD, IntegerDigits[n]]; If[Equal[s, 1], Print[n]], {n, 1, 256}]
PROG
(Haskell)
a069715 n = a069715_list !! (n-1)
a069715_list = filter ((== 1) . a052423) [1..]
-- Reinhard Zumkeller, Apr 14 2014
(PARI) is(n)=gcd(digits(n))==1 \\ Charles R Greathouse IV, Nov 01 2014
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Labos Elemer, Apr 02 2002
STATUS
approved