OFFSET
1,1
COMMENTS
The next term (a(5)) has 210 digits. - Harvey P. Dale, Aug 15 2022
MATHEMATICA
sci[p_]:=Module[{k=2}, While[!Divisible[FromDigits[Flatten[IntegerDigits/@ Range[ k]]], p], k++]; FromDigits[Flatten[IntegerDigits/@Range[k]]]]; sci/@Prime[ Range[ 5]] (* Harvey P. Dale, Aug 15 2022 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 01 2002
EXTENSIONS
Next term is too large to include, but may be deduced from A077182. - Sascha Kurz, Jan 30 2003
Corrected by Sascha Kurz, Jan 30 2003
STATUS
approved