OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
A188172(a(n)) = 1.
EXAMPLE
a(1) = A188226(1) = 7.
MATHEMATICA
okQ[n_] := Length[Select[Divisors[n] - 7, Mod[#, 8] == 0 &]] == 1; Select[Range[200], okQ]
PROG
(Haskell)
import Data.List (elemIndices)
a141164 n = a141164_list !! (n-1)
a141164_list = map succ $ elemIndices 1 $ map a188172 [1..]
(PARI) res(n, a, b) = sumdiv(n, d, (d%a) == b)
isA141164(n) = (res(n, 8, 7) == 1) \\ Jianing Song, Apr 06 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Mar 26 2011
STATUS
approved