OFFSET
1,2
COMMENTS
LINKS
Rémy Sigrist, C# program for A241182
MATHEMATICA
A241180[n_] := Module[{c, nx},
c = 1; nx = n;
While[ !
AnyTrue[nx = Union[Flatten[nx + IntegerDigits[nx]]],
PrimeQ [#] && # > n &], c++];
Return[c]];
A241182[n_] := Module[{i = 1},
While[A241180[i] != n, i++];
Return[i]];
Table[A241182[i], {i, 8}] (* Robert Price, Mar 18 2019 *)
PROG
(C#) See Links section.
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Apr 23 2014
EXTENSIONS
a(5) corrected and a(6)-a(30) added by Hiroaki Yamanouchi, Sep 05 2014
More terms from Rémy Sigrist, Jul 26 2020
STATUS
approved