OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..230 (terms < 10^14)
EXAMPLE
25502420 is a term since 25502420, 25502421, 25502422, 25502423 and 25502424 are all Moran numbers.
MATHEMATICA
moranQ[n_] := PrimeQ[n / Plus @@ IntegerDigits[n]]; m = moranQ /@ Range[5]; seq = {}; Do[If[And @@ m, AppendTo[seq, k - 5]]; m = Join[Rest[m], {moranQ[k]}], {k, 6, 10^8}]; seq
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Apr 25 2020
EXTENSIONS
Terms a(6) and beyond from Giovanni Resta, Apr 27 2020
STATUS
approved